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GENERAL  USER  INSTRUCTIONS 


The  documentation  contained  in  this  report  consists  of  specific 
user  instructions,  equations  and  program  listings  for  nuclear  weapons 
targeting  calculations  using  the  Texas  Instruments  TI-59  hand-held 
programmable  calculator  with  the  DNA/AP-550  CROM  A1  installed.  The 
programs  were  developed  by  Horizons  Technology,  Inc.  (HTI)  under 
contract  with  the  Defense  Nuclear  Agency,  Contract  No.  DNA  001-78-C-024 7 

These  instructions  were  prepared  for  users  who  have  a  working 
knowledge  of  the  TI-59  calculators.  Less  experienced  users  will  find 
detailed  operating  instructions  in  the  TI-59  Owner's  Manual. 

After  the  instructions  for  each  calculation,  this  document 
includes  a  section  describing  the  equations  used  in  that  calculation 
and  a  section  cc  aining  annotated  program  listings. 

Additional  program  development  is  being  continued.  The  purpose 
of  this  CROM  and  associated  documentation  is  to  examine  the  utility  and 
convenience  of  this  equipment  and  these  programs.  Selected  sections  of 
the  referenced  document  were  programmed  to  provide  the  ability  to  run 
various  types  of  calculations.  Omission  of  other  types  of  calculations 
does  not  imply  that  they  are  not  important  or  will  not  also  be  programmed 
in  the  future.  Similarly,  the  normal  test  and  review  procedures  are  still 
in  process.  Issuance  of  these  CROMs  and  documents  prior  to  completion 
of  test  and  review  permits  the  possibility  of  programming  errors.  The 
calculated  results  are  developed  from  variuos  numerical  representations 
of  the  available  data.  Two  accuracy  statements  are  required.  The 
precision  with  which  the  referenced  data  are  represented  is  typically 
+5%  with  occasional  differences  of  as  much  as  ±15%.  The  references 
used  claim  accuracies  of  +15%  to  25%.  The  user  is  cautioned  to  refer  to 
the  referenced  documents  for  more  complete  descriptions  of  uncertainties 
in  data  and  methodologies.  The  approximations  made  in  generating  these 
data  are  discussed  only  to  the  extent  necessary  to  explain  the 
oi;uations  used.  These  approximations  can  bo  complex  and,  if  not 
i.indorstood ,  can  lead  an  incxpc’r  i  cnccd  user  to  erroneous  eoncJusions. 

'I'hese  data  arc  also  vunlid  on.ly  within  limited  rnig(.'s.  Limits  ha'/e 


been  imposed  in  most  of  the  HTI  programs  to  confine  them  within 
the  limits  of  the  basic  data  or  within  reasonable  limits  if  no 
other  restrictions  pertain.  The  user  is  warned  by  a  flashing 
display  and  termination  of  input  printing  when  the  limits  have 
been  exceeded. 

To  insert  the  CROM  module  into  the  calculator,  follow  these 
instructions : 

1.  Turn  the  calculator  off.  Replacing  a  module  v;ith 
the  calculator  on  may  cause  the  keyboard  or  display 
to  lock  out.  Shorting  the  contacts  can  damage  the 
module  or  the  calculator. 

2.  Slide  out  the  small  panel  covering  the  module  com¬ 
partment  at  the  bottom  on  the  back  of  the  calcu¬ 
lator.  Be  sure  to  eliminate  all  static  charges 
before  handling  the  module. 

3.  Remove  the  module  initially  in  the  calculator.  The 
calculator  may  be  turned  over  to  allow  the  module 
to  fall  into  the  user's  hand. 

4.  Insert  the  new  module,  notched  end  first,  with  the 
contact  side  down  into  the  compartment.  The  module 
should  slip  effortlessly  into  place. 

5.  Replace  the  cover  panel,  securing  the  module  against 
the  contacts. 

Descriptions  of  the  auxiliary  magnetic  card  programs  for 
this  CROM  module  are  given  as  appendices  to  this  document. 

These  programs  run  in  the  turn-on  state  of  the  calculator,  pro¬ 
gram  00,  and  call  the  CROM  programs  as  subroutines.  They  are 
referred  to  as  control  programs.  There  are  four  types  of 
control  programs  described  in  Appendices  A  through  D. 
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Appendix  A  is  a  demonstration  code  than  runs  CROM 
programs  sequentially  with  one  set  of  input  parameters. 

Appendix  B  provides  for  repetitive  calculations  with 
varying  inputs,  for  parametric  studies. 

Appendix  C  provides  for  inversions  of  several  of  the 
CROM  calculations. 

Appendix  D  is  a  program,  that  will  calculate  probability 
of  damage  to  rectangular,  triangular,  and  elliptical 
targets. 

These  auxiliary  programs  expand  the  versatility  of  the 
basic  CROM  module  by  adding  interesting  features  that  would 
otherwise  be  excluded  because  of  memory  constraints  and  input/ 
output  considerations.  A  contro.l  program  can  reside  in  calcu¬ 
lator  memory,  and  the  CROM  module  is  still  immediately  acces¬ 
sible  to  the  user. 


Main  Calculator  Memory 

The  boxes  to  the  right  are  proportional 
to  the  sizes  of  the  different  memories 
required  in  the  CROM.  Magnetic  card 
programs  are  read  into  the  main  calcu¬ 
lator  memory  illustrated  above.  A 
CROM  program  on  the  right  can  be  selec¬ 
ted  and  run  independently.  The  data 
registers,  however,  are  shared  by  a] 1 
programs.  Any  program  is  able  to  call 
a  subroutine  of  another  program  for 
execution.  Thus  a  control  program 
residing  in  the  main  program  memory  can 
call  and  execute  a  CROM  program  as  a 
subroutine . 
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CROM  Program  Memory 


Operation  of  the  CROM  is  described  in  section  1,  "Otneral 
Description."  Every  code  is  accessed  and  run  through  the  uni¬ 
versal  input  routine,  program  01,  which  is  also  described  in 
section  1.  The  example  problems  shown  in  each  section  are 
designed  to  illustrate  the  use  of  the  PC-100  printer  with 
the  calculator.  In  cases  where  intermediate  results  are 
printed  but  not  displayed,  the  storage  registers  for  these 
results  are  given  so  that  they  may  be  recalled  when  using  the 
calculator  in  the  hand-held  mode.  Storage  registers  6-9  and 
30-59  are  always  available  to  the  user  and  have  no  effect  on 
CROM  program  operation. 

The  inputs  necessary  to  perform  the  calculations  programmed 
in  this  CROM  are  briefly  defined  in  each  program  section  of 
this  document.  The  user  is  referred  to  the  Defense  Intelligence 
Agency's  Physical  Vulnerability  Handbook  -  Nuclear  Meapons  (U) , 
AP-550-1-2-60-INT,  June  1,  1969,  CONFIDENTIAL,  for  further 
information . 

At  the  top  of  the  first  paqo  of  every  program  section  of 
this  document  is  an  imaqe  IxtioJi  "AP-550  PROMPT  Al".  These 
are  images  of  non-magnetic  "prompt"  cards  that  slip  into  the 
card  holder  on  the  front  of  the  TI-59  calculator.  The  purpose 
of  these  cards  is  to  provide  an  input  guide  for  the  user.  No 
magnetic  data  is  or  can  be  stored  on  these  cards. 


Section  1 


CROM  Operation;  General  Input  Routine 
and  Calculational  Capabilities. 
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AP-550  CROM  A1  -  GENEl-lAL  INPUT  ROUTINE  AND  DESCRIPTION 

To  facilitate  both  versatility  and  case  of  use,  the 
DNA/AP-550  CROM  Al  was  designed  to  operate  entirely  throuqh 
program  01,  the  universal  i  njiut  routine.  To  ensure  that  the 
AP-550  CROM  is  installed  in  the  calculator,  enter  the  k.c;y stroke;. 

2nd  Pqm  01  SBR  2nd  Write.  The  PC-100  printer  will  then  print: 

DNA/AP-550. 

Once  program  01  has  been  selected,  the  calculator  can  be 
left  in  that  mode.  The  universal  input  program  automatically 
selects  all  programs  and  stores  all  inputs. 

Inputs  are  entered  into  keys  A  through  E  and  2nd  A'  through  2nd 
D'  in  accordance  with  the  input  label  plan  shown  in  Figure  1. 

Inputs  may  be  entered  in  any  order,  except  that  in  the  Equiva¬ 
lent  Target  Area  code,  programs  6.0  and  6.1,  the  length  VN  and 
length  k -factor  must  bo  entered  successively  into  key  D,  as: 
length  VN,  D;  length  k-factor,  D.  The  same  applies  to  the  width 
VN  and  k-factor  in  key  E.  The  offset  and  radius  of  safety 
must  also  bo  entered  successively  into  key  D  when  executing 
program  5.1.  Other  than  tlu'se  special  cases,  all  inputs  can 
be  independently  entered  before  program  execution.  All  inputs 
are  saved  (with  the  exception  of  environment  classification  in 
the  Personnel  Vulnerability  program)  during  the  course  of 
exi.;cution  and  do  not  need  to  be  re-entered  when  another  calcu¬ 
lation  is  initiated . 

To  run  a  calculation,  first  enter  the  data  with  the  appro¬ 
priate  keys  (as  shown  in  Fiii.  1)  ,  and  then  enter  a  two-dic?it 
code  number  of  the  form  a.b  with  key  2nd  E*.  This  number  selects 
the  primary  calculation  and  subcalculation  to  be  run.  All  the 
calculations  that  may  be  run,  and  their  associated  code  numbers, 
are  shown  in  Table  1.  Once  a  calculation  is  selected,  the  code 
number  for  that  calculation  need  not  bo  re-entered  if  a  repeat 
calculation  is  desired.  Pressing  R/S  will  initiate  the  I'nevious 
keyed -in  calculation  even  if  the  inputs  are  changed. 
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Programs  2.0  through  2.7 


Programs  6.0  and  6.1 


CEP 

TARGET 

RADIUS 

OFFSET 

DAMAGE 

SIGMA 

YIELD 

HOB 

VM 

K- 

FACTOR 

Weapon  Radius,  P  and  Q  Targets;  Pd  to 
circular  normal  targets 


CEP 

LENGTH 

WIDTH 

AIM 

POINT 

YIELD 

HOB 

LENGTH 

VN,K 

WIDIH 

VN,  K 

Prob.  of  Damage,  ETA,  VN  System 

Programs  3.0  through  3.2 


CEP 

TARGET 

RADIUS 

OFFSET 

DAMAGE 

SIGMA 

WR 

Pd  to  point  and  circular  targets,  normal 
and  uni  form  dist. 


Program  6.2 


CEP 

LENGTH 

WIDTH 

AIM 

POINT 

YIELD 

HOB 

MEDIUM 

LENGTH 

CRM 

WIDTH 

CRM 

Prob.  of  Damage,  ETA,  crater  radius 
method 


Programs  4.0  and  4. 1 


YIELD 

_ 1 

HOB 

ENVIR. 

Personnel  Vulnerability 


Program  6 . 3 


CEP 

LENGTH 

WIDTH 

AIM 

POINT 

LENGTH 

WR 

WIDTH 

WR 

Prob.  of  Damage,  ETA,  weapon  radius 
method 


Programs  5.0  through  5.3 


TROOP 

DISP. 

VULN. 

RISK 

DESIRED 

ASSUR. 

YIELD 

HOB 

CEP 

OFFSET; 

R.S. 

PEH 

Minimum 

Safe  Dist. ,  Fall 

oiit-Safe 

HOB 

Programs  7.0  through  7.4 


YIELD 

HOB 

MEDIUM 

RADIUS 

Cra  ter i ng 


Figure  1.  An  assigniaent  of  variables  to  user-defined  keys  for  each 
program  in  AP-550  CROM  Al.  The  lower  rows  of  rectangles 
for  each  program  type  represent  Keys  A  through  E.  The 
upper  rows  represent  Keys  2nd  A'  through  2nd  E'. 


Table  1.  A  complete  list  of  calculations 
available  with  AP-b50  CROM  A1 . 


CODE 

DESCRIPTION 

2.0 

Weapon  radius  and  probability  of  damage,  (’-target* 

2.1 

Weapon  radius  and  probability  of  damage,  C'-targrt* 

2.2 

Weapon  radius  and  probability  of  damage  at  optimu-n  t(0B,  P- target* 

2.3 

Weapon  radius  and  probability  of  damage  at  optinium  HOB,  0- tat  get* 

2.4 

Weapon  radius,  P-target 

2.5 

Weapon  radius,  Q-target 

2.6 

Weapon  radius  at  optimum  HOB,  P-target 

2.7 

Weapon  radius  at  optimum  HOB,  Q-target 

3.0 

Probability  of  damage  -  point  target 

3.1 

Probability  of  damage  -  circular  normal  distribution 

3.2 

Probability  of  damage  -  circular  uniform  distribution 

4.0 

Personnel  weapon  radius,  any  HOB 

4.1 

Personnel  weapon  radius,  optimum  HOB 

5.0 

Radius  of  safety  and  minimum  safe  distance 

5.1 

Probability  of  not  exceeding  acceptable  weapons  effects 

5.2 

The  minimum  HOB  which  has  a  certain  probability  of  being 

fal lout-safe 

5.3 

The  probability  that  a  certain  HOB  is  fallout-safe 

6.0 

Probability  of  damage,  ElA,  VN  method,  P-target 

6.1 

Probability  of  damage,  ETA,  VN  method,  O-tai'get 

6.2 

Probability  of  damage,  ETA.  crater  radius  method 

6.3 

Prob.  of  damage,  ETA,  length  and  width  weapon  radii  specified 

7.0 

Crater  radius,  depth  and  volume 

7.1 

Invert  for  HOB 

7.2 

Invert  for  yield 

7.3 

Calculate  optimum  HOB  for  maximum  crater  radius 

7.4 

Calculate  optimum  HOB  and  minimum  yield  for  given  crater  radius 

_ _ _ _ _ _ — - - - _ 

*circular  normal  distributions  only. 


The  runninq  c.ilculation  prints  the  calculation  cO(3e  number 
first,  the  inputs  second,  and  then  pauses  until  the  solution  is 
found  and  [srinted.  During  the  input  {irinting  cycle,  inj^uts 
are  checked  to  determine  if  they  are  within  an  acceptabJc  range, 
if  limiteil  by  the  program.  These  , automatic  limits  are  spjecified 
at  the  end  of  each  program  descr  i  p^t  ion .  If  a  value  falls  out- 
siile  the  allowed  data  range,  the  calculatoi’  sets  an  error  ccui- 
dition,  prints  the  exceeded  irgjut,  and  stopjs  execut  ion  with  the 
exceeded  limit  flashing  in  t  hi'  dispilay.  The  inpjut  value  itself 
IS  in  the  t-rr*q  inter  for  i  nspiect.  i  on .  'I'he  [u  ocedure  for  correcting 
tdie  error  is  to  [iress  CI.R,  re-enter  a  new  iiguit  Vii  1  ue  v;  i  t  h  t  hc' 
a  jipiroprr  i  a  t  e  kr>y,  and  press  R/b'  to  start  the  calculat  ion  over. 

Should  it  bei'cmie  iu>r-essary  to  stopi  the  ca  leu  Kit  or  while 
a  t.'ROM  pr'ogram  in  running,  the  reset  key,  can  bt'  j^resst'd 

to  return  pirogram  control  t  o  the  keyboard, .  I'ressinu  the  R/S' 
key  has  no  efft'ct  when  the  c'alculator  is  running  in  CROM 
mr'mory.  The  RS.T  key  also  takes  ttu*  calc'ulator  out  oi  .iny  I’RoM 
program  and  It'aves  the  [lointt'r  in  program  00,  which  is  the 
[irocpram  the  machine  is  in  when  it  is  turiu'd  on  ot  when  it  is 
runninq  a  magnt'tic  card  pirogram.  To  use  the  t'RoM,  ;  roar  am  01 
must  b('  solei'ted  again.  F’or  this  r<Mson,  consider  the  R.’”’ 
key  only  as  an  emergenc'y  h.ilt  command. 

When  running  the  examjile  piroblems  in  the  tollowin:  progiaiis, 
it  is  useful  to  note  that  stepis  1  and  2  are  always  the  sa'iie: 

1)  turn  off,  th('n  on,  and  2)  select  p'rogram  01.  It  the  calcu¬ 
lator  is  already  on  and  in  pirogram  01,  these  sti'P'S  need  not  be 
repieatc'd  between  exampiles.  Ilowevc'r,  it  is  impiortant  to  <  nlei 
all  the  inpjuts  required  for  a  piart  icular  caleul.it  ion,  otherwise 
values  pireviously  entered  will  be  stored  in  memory  and  can  be 
misused.  TabK’  2  lists  the  inputs  and  outpnits  and  tlu'ir 
cor  r  espiond  1  nip  pirinter  a  1  phanumer  ics  for  each  ot  the  main  ('I-tOM 
programs.  Note  that  'I'ablc  2  includes  the  same  information 
presented  qrapihically  in  Figure  1. 


Table  2.  Inputs  and  outputs  for  each  of  the  main  CROM  proqrams 
and  their  corresponding  printer  a  1 phanumer i cs . 


OUTPUTS  ALPHA 


INPUTS 


Program  Oi  (see  note  at  end 
of  table) 

Yield 

Height  of  burst 
Vu 1 nerabi 1 i ty  number 
k-  factor 

Pr'ogram  0.1 

wraijun  ('(idi.iS 
i  rc \i  1  a  r  ei  r'or  [■rdliabl  e 
’arqet  radius 
'.'f  f  S(>t 

i  a”  .tqe  S  1  g:sa 


1  )f,t  Ot  t',,| 
•  nv  1  r  I  ini’  cn  f 


r  , :  ra"'  I ' 


OO  ef  !  at  at 

a  i  a  r  *■  f  'Ti  t  ;  1 . 0  1 1  ]  (, 

:  ■  d  '  ,  t .  f  ^ 

!  a  : '  1  I  ■  -■  r  ’  d  I  id  'id  '  J'l  t 
'd,  d  1  ■,;)d  I  '  I  (  ai 

d'  '  lit  t  1  1  t  V  I  dan)  I  ?  1  riri 
.•;  faMd  ri  ,i 


•‘d  1  ;d  '  (I*  I  ,t’  .  ' 

I 

rt  1  ;  I ' 

i  I  dd  t  tl  k  -  t  ,|(  t  nr 
«■.'  I  : '  ti  i  -  f  a  I  till' 

'  I  d ‘  a  1  a r  d r’T'dr'  (  i  d! .a  1 '  1  d 

1  d,:i|  t  tl 

rt  I  d  •  h 


Weapon  Radius 
Optimum  height  of  burst 
(printed  with  inputs) 
Probability  of  damage 


Probability  of  liamage 


Wt.'dpun  radius 
Immage  sigma 
Optimum  height  of  (lurst 
((irinted  with  inputs) 


'•-aciius  01  sateiy 
Minimui!.  ';af(>  dist.i 
Prolhib  1 1  i  ty 
tlei'itit  of  burst 


I  eni)tti  wc-aptai  r.idt 
'Width  weapon  radio 


Table  2.  (Continued) 


*  Volume  wi  ll  aprjcar  in  the  display  after  pressinq  2nil  >; . 

Note  on  Program  02;  Programs  2.0  through  2.3  calculate 
probability  of  damage  to  circular  normal  targets  in  addi¬ 
tion  to  weapon  radii.  This  is  made  possible  by  an  internal 
command  that  automatically  transfers  the  calculated  weapon 
radii  to  program  03.  Therefore,  to  calculate  a  probability 
of  damage  utilizing  program  02.,  i.e.,  to  invoke  calcula¬ 
tions  2.0  through  2.3,  the  inputs  listed  for  prociram  03 
must  also  be  entered  with  the  exception  of  weapon  radius. 

The  appendices  to  this  document  contain  magnetic  card  auxiliary 
prot.jrams  that  use  the  CROM  module's  pro<]rams  as  subroutines.  The 
auxiliary  programs  are  designed  to  (^nhance  the  CROM '  s  versatility 
by  providing  inversion  routines  for  the  CROM's  main  prouram,  itera¬ 
tion  routines  for  parameter  studie>s  and  special  ('asc'  considerations. 
A  list  of  calculations  possible  when  th('  auxiliary  preruram  magnetic: 
cards  are  used  in  c'on  iunct  iern  with  th<’  AR-OIO  CROM  Al  is  giw'n  in 
Table  3 . 


I  3 


Table  3. 


A  list  of  auxiliary  magnetic  card  programs 
given  in  the  appendices  of  this  document. 

CONTROL  CARD  CALCULATIONS 


Appendix  A  - 
(a) 


Appendix  B  - 
(a ) 


(b) 


Appendix  C  - 

(a) 

(b) 

(c) 

Appendix  D  - 
(a ) 


Demon stration  Program 

will  run  a  number  of  CROM  programs  in  a  single 
execution,  with  parameters  defaulting  to  pro¬ 
grammed  values.  Inputs  can  be  changed  at  the 
option  of  the  user. 

Iterations 

Appendix  Bl  will  increment  up  to  five  diffeient 
inputs  through  a  specified  range  to  jjerform  lanic 
numbers  of  calculations  in  a  single  execution. 

Appendix  B2  is  similar  to  Appendix  Bl ,  except 
that  the  values  of  the  input  parametei  Lenig 
chufKied  are  exf.'licitly  specif icnl. 


Inversions 

Appendix  Cl  inverts  the  VNTK  System  for 
yield . 

Appendix  C2  inverts  the  Personnel  vuinei- 
ability  code  for  yield. 

Appendix  C3  inverts  the  Cratering  code  foi 
the  deeper  depth  of  burst. 

r_r o_L ab y^i  ty  o f  Da nia g e 

Will  calculate  probability  of  damage  to  root  an. nil  at 
elliptical  and  triangular  targets  by  the*  n.et  hod 
shown  in  AP-SSO. 


1  f. 


PARTITION 


FLAG 


COMMENTS 


FLAG 


COMMENTS 


AUTOMATIC 

LIBRARYMOOULE 

CROM  A-1 
(Progra'ii  1) 

OATA  REGISTERS  FOR 

OATA 


07 

exceeded  limit 
flag  (reset 
in  this  pro¬ 
gram,  set  by 
called  pro¬ 
grams  ) 

EXAMPLE 

REG. 


COMMENTS 


STEP  CODE 


LABELS 

KEY  COMMENTS 


Program  in  use 
Line  for  SBR  call 
Reg.  no.  for  input 
use 


in 


used  by  called  program 


Input,  key  A 
Input,  key  B 
Input,  key  C 
Last  input,  key  D 
Last  input,  key  E 
Input,  key  A' 

Input ,  key  B' 

Input ,  key  C 
Input,  key  D' 

Next  to  last  input,  kev  D 
Next  to  last  i nput .  kev  F 


'R13,  R19 

formatti ng 

-R14,  R20 

'RIO 

'Rll 

'R12 

'R15 

•R16 

•R17 

•R18 

advance  paper 
initiate  calc 
header 


Used  by  called 
f)rnnrant 


PROGRAM  MEMORY  (LIST) 


STEP 


CODE  KEY 

COMMENTS 

STEP  CODE  KEY 

COMMENTS 

'  i  P  i 

If  one  input: 

04^  ”6  L  B  L 

4  T\ 

Input  R13 

0  43  1  4:  H  ' 

A'  Input  ->■  R15 

'  Z-  C 

D 

M4S  4.-=  Kin 

■  *:  •  •"= 

Cl  ^  Cl  1  — :  1  — : 

i  - 

If  two  inputs: 

i“i  c:  -  -i  !-•  -J-  n 

^  ^  IQ 

1st  input  ^  R19 

Ci  5  4  z'  4  f  4 

'  ■■  Z=  ; 

2ncl  input  -*■  R13 

053  "^4  i  Hi 

■;  1 

B'  Input  ->  R16 

^  ■  =  i==  i 

j4  H  H  4  7=  Q  T  n 

:■  4  f 

“  Z:  O 

-  T  kli. J 

nsL  “p  j  pi 

E  fi  b 

060  1 8  C ' 

Input  ■>  R17 

-  Q  T  |..j 

f  'i  4,  :  ^  J  C;  T  n 

C 

Z.  Z:  p  i 

) 

i  j  4.  ■  -=  “Z  ip 

<  Initiate  calculation 

"  ’f  '  ^ 

i  b  i  u 

1  on  R/S 

b  Z-  ^  ■:=  H*  4 

]  U  P  ’ 

) 

■Z’  U  L 

If  one  input: 

U  bt--  14  jj  ' 

Input  ^  R18 

■^4  rvf 

Input  ->  R14 

j_i  4;  ]  i-l  1 

u 

.  -?■  ].  <4 

E 

i'i  7  :i  4  r  ‘  ' "" 

If  two  inputs ; 

U  ■■■'  I  ”4  i  R 1 

■  Z  i”'  \ 

1st  input  ->■  R20 

n  T  H  *  P  ,  C; 

Return  after 

14  14 

2nd  input  -»■  R14 

073  38  hDv 

calculation 

C:Tr\ 

Ij  74  4  8  H  F:  F’ 

4 

075  88  47 V 

"  -  ID; 

i"  “  iZ.  Z  J  p  T  r  i 

1  1  H 

Input  RIO 

n  ■'  .1 8  P  ■'  i 

::  -•  T  n 

A 

fi  7  *  ■;  n  i'i 

1  J  1 

H  Lb  L 

Label  E' . 

'  "  ^  0 

‘--.-J  J  t 

Initiate  CROM  calc. 

- - - - - - - 

V  3 :  7t  '  .7 

(Pgm) 

\  1  B 

Input  Rll 

b  C-  7i  J  L  ■ 

B 

U  L  4  r  •! ' 

-  ^ 

i  i  >'  -  ^  ■ 

i  H  ; 

C 8  8  “8  FI' 

•  - 

Input  >•  R12 

8  -  ;  ^  8  - 

'  7  b 

C 

r 

I-  Z  i  '.3  i  Li 

b  b  ^  ^3  z-  T  u 

Used  to  recall  input 

:.  :4  fV 

038  88  08 

values  with  RCL  IND  02 
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PROGRAM  MEMORY  (LIST) 


PARTITION 


AUTOMATIC 


LIBRARYMOOULE 

CROM  A-1 

(Program  9)  _ 

DATA  REGISTERS  FOR  EXAMPLE 
DATA  REG. 


FLAG 

COMMENTS 

FLAG 

00 

Prevents  limit 
checks  from 
halting  on 
error 

09 

01 

Suppresses 

printing 

07 

Set  if  limit 
exceeded 

COMMENTS 


Register  number  for 
input  in  use 


COMMENTS 

Used  in  other 
programs;  re¬ 
set  in  case 
of  error  to 
turn  off  trace 
mode 


LABELS 

STEP  CODE  KEY  COMMENTS 


Round  and  print 
outputs 


Check  and 
print  inputs 


I  print  inp 


Overflow  from 
PGM  7 


Used  by  PGM  7  segment 

Used  by  PGM  7  segment 

Used  by  PGM  7  segment 


Used  by  PGM  7  segment 


Used  by  PGM  7  segment 


PROGRAM  MEMORY  (LIST) 


STEP 

CODE  KEY 

COMMENTS 

STEP 

CODE 

KEY 

COMMENTS 

“i  i";  ;“i 

L  C'  !_ 

Label  B.  Rounds  argu- 

04? 

-’-7 

GE 

Error  routine  i f  x  hi 

- 

-  .1  Z- 

ment  to  3  significant 

fi  4  L: 

ijj 

f  •  f ; 

fi  fi 

52  EE 

digits  and  prints 

049 

h4 

5  4  fi:l 

(outputs ) 

n  15  n 

44 

r  — 

4  U  4 

i  j-  P 

!jir5 

--  i- 

5  4  Fl-\ 

0  5  4 
05  4 

5  5 

Printing  suppressed  if 
flag  1  set 

•  J  u  ■ 

iJ  2  4  7 

054 

c;  '-7 

~ 

Li  0  Li 

45  i- 

7-  7 

np 

U  U  7 

J'  4  ;'5  ■!  i 

056 

06 

jl  Z 

ij  1 

4  4  1  'J 

05? 

94 

F'  T  hJ 

1  i 

54  Ec 

CT 

I—  L_ 

Label  A'.  Integer! ze 

L'  1  ^ 

i  1-2  i  U 

059 

L4, 

h  = 

RC*2  (as  input),  check 

U  1  L 

"  1  H 

OFil 

HIP 

limits  and  print. 

Li  1  4 

LBL 

Label  B'  .  Takes  lov.'er 

0  6 1 

fl  7 

if 

Entered  by  the 

ij  1  3 

E' 

limit  for  Y  in  display 

I'l  1^. 

sequence;  aloha 

-i  1  - 

4 

and  checks  and  prints 

Y  (if  R02=10) 

06  j 
i  j  JT:  4 

-  J 

FL- 

x  J  t 
hi 

IJT:: 

;j  -! 

065 

I' 

l.i  1  4 

4  ,'  j  -i  i 

066 

59 

T  f-  i  ” 

U  lL  iJ 

0  6  ? 

“4 

FT  9 

Uiz!  1 

t  ^ 

Ci  f  E: 

'J  -1 

0  4 

■J-4  4 

IJ  H;  '-i 

-E3 

UP 

"i  V 

^5^ 

Label  C. 

n  7  i'i 

Z  Z. 

!j  ^  4 

0  2=; 

L  "■ 

Checks  limits  on  RC*2 

-■  F 

-r  1—: 

IJ  7: 

p  r  ^ 

(used  in  sequential 

n 

1  ( 

MT" 

ij  2  7 

iJ  4  iJ  4 

i nputs ) 

LI  4 

— 

L  i-'  L 

label  C  .  Replaces 

IJ  i  o 

'5  □  r 

iJ  ;• 

.  1= 

ij  ‘ 

input  RC*2  Oy  its 

i.i  4  4 

4  4  4  4 

U?6 

44: 

?  1  ” 

absolute  value  and 

IJ  iJ  iJ 

7'  4  J'  ■? 

“j  *7 

“  ■; 

p  •  ^ 

prints,  (lower  limit 

i"i  -“i  1 

■  Z-  L  D  L 

Label  A. 

fi  7 

Ti  -7 

implicitly  0 ) . 

j'  *• 

M 

Check  limits  on  i nput , 

fi  7  4 

- 

1  ■,  - 

Entered  with  alphanu- 

Zi  OP 

i_i  -*  i_i  4 

entered  with:  input, 

X  4  t ,  '.'0  +  hi  X  alpha 

0  4  0 

S'  T  - 

meric  in  display. 

fi : S 

S  P  i  P 

fl 

--:r 

f!  :L  4, 

44  HIF 

0  S  4 

6- 1 

G  !  □ 

(J.  ^  P  i”i 

Ij  4 
fl  7 

5  i' 

Mil 

ij  Li  4 

ij  Li  ij  ij 

If  X  =  So  then  skip 

0  ijjL: 

HD'- 

Error  handling; 

!j  *4 

c;  "j  c; 

rest  of  checks 

0  Fi  7 

7-  ^ 

□  F 

4  1 

GE 

0  8  4 

7^; 

Set  error 

n  4 

MM  MM 

0  Fi  4 

7 

9  BP 

fi  4  4 

-;  f  : 

Error  routine  if 

0  4  n 

i‘  5i 

IJ44 

L  4  H  I  F 

14  14 

44  IH'L 

X-"  '  0 

0  9 1 

C7  fi 

Print  with  error 

H  J 

Ij  4  6 

IJ  7  4 

1  j  9  j 

46 

1  r -i  L 

'4TF 

PROGRAM  MEMORY  (LIST) 


CODE  KEY 


COMMENTS 


Stop  on  error  unless 
flag  0  is  set 


'"rror  has  occurred 

Suppress  further 
pri nting 


5  C_F  (nonexistent  label) 

-  LBl.  Label  E  is~cTlled  from 

5  E  program  4,  step  869 


r.nvi  ronment 


STEP  CODE  KEY 


More  packed  data, 
class  19 


Eq.  29,  Pqm. 


COMMENTS 


More  packed  data, 
class  20 


6  3  ti  C-- 


'  Data  for  class  19. 
I  Eq.  27 


I  Data  for  class  20, 
j  Eq.  27 


Eq.  29,  Pgm.  4 


(Y-b)‘ 


iCompensates  for  10  > 


H>  Eq.  27,  Pqni  4 


4  3  PCI 


1  4  ij  Cl  3 


'3  4  F  I  N 
04  4 


l2-digit  coefficient 


Envi ronment 
1100,667  or  667 

"Radius  and  depth  coeff 
Pqm .  7 _ 


PROGRAM  MEMORY  (LIST) 


Section  2:  Programs  2.0  -  2.7 


Weapon  Radius  Determination  for  P-type  and  Q-type  Targets. 
Probability  of  Damage  to  Point  and  Circular  Targets  With 
Normal  Target  Element  Distributions. 
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f  DNA  AP-550  PROMPT  Al  HtTI 


WEAPON  RADIUS,  P  and  Q  '^ARGETS;  Pd  to  CIRCULAR  TARGETS  (NORM) 


CEP  (ft) 

OFFSET  (ft) 

DAMAGE  SIGMA 

2.n  *WR,Pd 

HOB  (ft) 

VN 

K-FACTOR 

SOURCE  OF  DATA: 

Defense  Intelligence  Agency,  Physical  Vulnerability  Handbook- 
Nuclear  Weapons  (U) ,  AP-550-1-2-60-INT,  June  1,  1969,  Part  I, 
Section  B;  Part  IV,  Section  A. 

DESCRIPTION: 

A.  Objective 

The  main  objective  of  this  set  of  eight  programs  is  to 
calculate  weapon  radii,  (WR) ,  utilizing  the  VNTK  system.  Four 
of  the  programs  provide  an  option  that  enables  the  user  to 
calculate  the  probability  of  damage,  (Pd),  to  point  targets 
or  to  circular  area  targets  with  normal  target  element  distribu¬ 
tions,  using  the  previously  calculated  weapon  radius.  This 
option  is  essentially  an  internal  transfer  by  the  calculator 
to  program  set  03  and  therefore  the  user  is  referred  to  the 
program  03  documentation  for  details  concerning  the  probability 
of  damage  calculations. 

The  calculated  weapon  radius,  as  defined  in  AP-950,  is: 

"a  circle  centered  at  ground  zero,  within  which,  on  the  average, 
there  are  as  many  targets  damaged  to  a  lesser  degree  than 
specified  as  there  are  targets  damaged  to  the  specified  degree 
outside  the  circle."  A  more  precise  definition  relates  weapon 
radius  to  the  radius  of  damage  at  which  there  is  a  50%  proba¬ 
bility  (RD^q)  of  achieving  the  desired  damage;  WR=RDj- )  , 
where  is  the  damage  sigma.  The  P-type  target  weapon  radius 
calculation  assumes  a  damage  sigma  of  0.2  and  the  Q-type  target 
weapon  radius  calculation  assumes  a  damage  sigma  of  0.3.  The 
user  is  cautioned  that  when  performing  the  optional  probability 
of  damage  calculation,  the  appropriate  damage  sigma  must  be 
entered  to  obtain  valid  results. 
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B. 


Inputs-Outputs 

The  eight  calculations  comprising  this  program  set  and 
their  necessary  inputs  are  as  follows: 

Program  2.0:  WR  and  Pd  -  P-type  targets. 

Inputs:  Yield  (KT)  CEP  (ft) 

HOB  (ft)  Target  radius  (ft) 

VN  Offset  (ft) 

k-factor  Damage  sigma,  -  0.2  for  P- 

type  targets 

Program  2.1:  WR  and  Pd  -  Q-type  targets. 

Inputs:  Same  as  program  2.0  with  the  exception  that  c^^O.B 

Program  2.2:  WR  and  Pd  at  optimum  HOB  -  P-type  targets, 

Inputs:  Same  as  program  2.0  with  the  exception  that 

no  HOB  is  entered,  od  =  0.2 

Program  2.3:  WR  and  Pd  at  optimum  HOB  -  Q-type  targets. 

Inputs:  Same  as  program  2.2  with  the  exception  0(j=  0.3 

Program  2.4:  WR  -  P-type  targets. 

Inputs:  Yield  (KT)  VN 

HOB  (ft)  k-factor 

Program  2.5:  WR  -  Q-type  targets. 

Inputs:  Same  as  program  2.4 

Program  2.6:  WR  at  optimum  HOB  -  P-type  targets. 

Inputs:  Same  as  program  2.4  with  the  exception  of  HOB. 

Program  2.7:  WR  at  optimum  HOB  -  Q-type  targets. 

Inputs:  Same  as  program  2.4  with  the  exception  of  HOB. 

C.  Limits 


Yield: 
HOB: 
where : 


0. 1  KT  <  Y  <  30  MT 

0  ft  <  HOB/Y^/^  <  HOBj^gj^ 


HOB^iax  =  2308  Y^/^  exp  (-AJVN/1 5 ) 


HOB 


max 


the  minimum  of: 
900Y^/^ 

23"08Y^'^^ 


for  P-targets 


Q-targets 


exp (-AJVN/1 5 ) 


where  AJVN  =  adjusted  vulnerability  number. 


VN: 

k-f actor : 

CEP: 

Target  Radius  (TR) : 
Offset  (x)  : 

Damage  sigma  (  ■  )  : 


0  _  AJVN  _  54,  P-target 
0_AJVN_34,  Q-target 
0  _  k  _  9 
CEP  J  0  ft. 

TR  >  0  ft. 

X  _  0  f  t . 

0.1  0  •  0.5 


D .  Data  Storage  Locations  and  Printer  Alphanumer ics 

The  user  can  find  the  following  information  stored  in  the  indicated 
registers  (R) : 


E. 


Variables 

Yield  (KT) 

HOB  (ft) 

VN 

k-f actor 
CEP  (ft) 

Target  Radius  (ft) 
Offset  (ft) 

Damage  Sigma 
Weapon  radius 
Prob.  of  Damage 


Registers 

RIO 

Rll 

R13 

R14 

R15 

R16 

R17 

R13 

R12 

only  in  display 


Additional  Information 


Alphanumer ics 

Y 
H 

V 
K 
C 
T 
X 
S 
W 
P 


Information  pertaining  to  the  target  VNTK  descriptions  and  damage 
sigmas  can  be  found  in  the  classified  version  of  this  document  and  AP-550. 


Pressing  R/S  will  initiate  the  previously  keyed-in  type  of  calculation 
even  if  the  inputs  are  changed. 
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EXAMPLE  2. 0,  2. 1,  2.3 


Given  the  following  information,  calculate  the  weapon  radius 
and  corresponding  probability  of  damage  to  an  area  target  with 
a  normal  target  element  distribution. 


target  type  =  P-type 


VN  number 
k-f actor 
Yield 
HOB 


=  15 
=  3 

=  100  KT 
=  4000  ft 


damage  sigma  =  0.2 
offset  =  500  ft 

CEP  =  200  ft 

target  radius=  10,000  ft 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off,  then  on 

Select  program  01 

Enter  yield  (KT ) 

100 

2nd 

Pgm  01 

A 

0 

0. 

100. 

B 

Enter  HOB  (ft) 

4000 

B 

4000. 

mm 

Enter  VN 

15 

D 

15. 

H 

Enter  k-factor 

3 

E 

3. 

7 

Enter  CEP  (ft) 

200 

2nd  A' 

200. 

8 

Enter  target  radius  (ft) 

10000 

2nd  B' 

10000. 

9 

Enter  offset  (ft) 

500 

2nd  C 

500. 

10 

Enter  damage  sigma 

.2 

2nd  D' 

0.  2 

11 

Calc.  WR  and  Pd  -  P-type 

2.0 

2nd  E' 

2. 

100.  Y 

15.  V 

3.  K 
4000.  H 

3870.  W 
200.  C 
10000.  T 
500.  X 

0.2  S 

0.341 

0.341  P 
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EXAMPLE  2.0 


2 .  3  (cont 


INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

Perform  same  calculation  for 

Q-type  target  with  same  VN  and 
k-factor . 

Enter  Q-type  target  damage  sigma 

.3 

2nd  D' 

0.3 

Begin  calculation 

2.1 

2nd  [• 

Repeat  calculation  described  in 

Step  12  for  the  optimum  HOB  case 

2.3 

2nd  t' 

0.283 

Note  optimum  HOB  =  2220  ft. 

0.43 

PRINT 


?.  1 
100. 
15. 

3. 

4000. 

3550. 

200. 

0000. 

500. 

0.3 

0.283 


2.3 

100. 

15. 

3. 

2220. 

4650. 

200. 

10000. 

500. 

0.3 


EXAMPLE  2.4,  2.5: 

Given  the  following  information,  calculate  the  weapon  radius 
for  the  given  HOB. 


target  type 
VN 

k-f actor 

yield 

HOB 


P-type 

6 

0 

1. 0  KT 
400  ft 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off,  then  on 

0 

2 

Select  program  01 

2nd 
Pgm  01 

0. 

3 

Enter  yield  (  KT) 

1 

A 

1. 

4 

Enter  HOB  (ft) 

400 

B 

400. 

5 

Enter  VN 

6 

D 

6. 

6 

Enter  k-factor 

0 

E 

0. 

7 

Calc.  WR  -  P-type 

2.4 

2nd  E' 

2.4 

1. 

Y 

6. 

V 

0. 

K 

400. 

H 

2480. 

2480. 

W 

8 

Perform  same  calculation  for 

Q-type  target  with  same  VN  &  K. 

9 

Enter  Q-type  target  damage  sigma 

.3 

2nd  D' 

0.3 

Begin  calculation 

2.5 

2nd  E' 

2.5 

1  . 

Y 

6. 

V 

0. 

K 

400. 

H 

2580. 

2580. 

W 
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EQUATIONS 


Definitions 

Y  =  Yield  (KT) 

HOB  =  Height  of  burst  (ft) 

VN  =  Vulnerability  number 
K  =  K-factor 
H  =  scaled  HOB  =  HOB/Y^'^^ 

Xq  =  scaled  optimum  HOB 
WR  =  Weapon  radius 
WR  =  Scaled  weapon  radius 
x'  =  Scaled  HOB  at  which  WR=1 
AV  =  Adjusted  VN  (AJVN) 

Calculation  of  AV : 

AV  =  VN  +  ci’nR  (D 

where  for  P-targets, 

C  =  11 

and  for  Q-targets, 

C  =  8.2 

R  satisfies  the  equation,  R  -  Yo(~Y~)  ^  '''  To  “  ^  ~ 


1  /  K  \ 

/20\^/^ 

2 

2\10/ 

(  Y  )  J 

+ 

“lO  )' 

(2) 

which  is  solved  iteratively. 

The  quantity  20^'^^  =  2.7144...  is  aporoximated  v/ith 
e  =  2.713... 

For  both  P  and  Q  targets, 

WR  =  I WR-2  [WR-2  1  I  yl/3  (p^ggg^ts  WR  <  2  as  WR  =  0)  (4) 

P-tarqct  equations: 
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where ; 


(7. 


=  exp(7.63  -  +  exp  7.37-^^ 


a  = 


(26-AV) 


1890  +  31 (26-AV) 
(AV-26) 


16" 

,  for  AV  1  26 


160 


,  for  AV  >  26 


P  =  ,6  +  exp[-(.  393AV  -  9  .  S/n  ( .  39  3AV)  +  3.3'^)] 


Xq  =  exp(6  +  /2  -  AV/15.7) 
X'  =  4.5  X  10^/  (26  +  AV) 


>  =  exp ( . 1  +  AV/37) 
Q-target  equations: 


WR 


H  1  Xo 


=  4^  ^  44)') . 

=  .(l7a(JL)‘’)e4(i-i)],fi 


>  X 


0 


where : 

ct  =  [exp  (133  -  1.82  AV)  +  exp  (128  -  1.4  AV)  ] 


1 

16 


a(a+l)  =  [exp  (158  -  1.4  AV)  +  exp  (177  -  2.7  AV) ] 
81- 


1 

20 


P  = 


1  +  (AV/33) 


n-1 


Av)]^  I960  -  4ior^^p^ - — 

I  Ll+exp(.27AV  -6.5)J 


Xq  =  [exp(-.24‘ 


-  6.5) 
2 


-1 


b  =  .03AV  +  4.6(9  +  (AV-24)  ) 


(6) 

(7) 

(8) 

(9) 

(10) 

(11) 

(12) 

(13) 

(14) 


(15) 

(16) 

(17) 

(18) 

(19) 
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PARTITION 


FLAG 


COMMENTS 


FLAG 


COMMENTS 


calculate  .. 
calculate  W^igx 
calculate  xq 
adjust  VN 
Q  target  opt.H 
P  target  opt.H 
Q  target 

l"  P  target 
main  calc. 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY  COMMENTS  STEP  '’ODE  KEY  COMMENTS 


Label  E. 

il4"’  1 

"i  f:  -  -  ~  “ 

Common  to  subroutines 

n 

A'  and  B' 

U  4  9  E  4  p 

--  :•  1".  -  L 

AJVN 

:::^'E  e  e 

n  R  E  -  E  E 

3  0o  I'-iv 

tr  9;  =:  _ 

.;  for  Q  target  (eq.  15) 

j-:  c;  _  ^  —  V  - 

jOE-  :5 

;"i  —  ^  “  lE  ;  Z-  ■ 

Label  B'. 

'i  ^  ^ 

fl  5  P  7’  T  P  F 

Calculates  a(a+l)=W  max 

jT’  ? 

Label  E'. 

Of:-;  E;f 

■;  T  ^  p  s 

Common  to  subroutines 

n  4  J. 

>P-targeL  calculation 

^  :  T 

A'  and  B' 

U  b  Li  ~= 

1  = 

0 1 3  Tl!  i 

-  ^  ;,  i  -:^  j  T  hi 

i,i  6  4  J 

j  I  6  L  E:  L 

Label  C. 

U  6  -  S 

J  il  L'  .  !'■  L  * 

Select  coefficient  for 

C'  -L-  ^  *4 

^  -  i  ^  r 

P-  or  Q-target 

ope  :  1  1 

! 

1“ 

Label  NOP 

:  7  _ 

-  :  -  1  -  p  T  Ki 

'I  i  - 

-  ^  :•  "  L  L 

Label  A'. 

-  —  —  — 

.:  p  E^  H  ® 

M  ~  F  ' 

^  I  “  F 

Calculates  x 

:  _  .  T 

"i  p 

E  -  -1  = 

W  max  for  Q  target  i 

j  E  T  E^  E  E 

>P-target  calc. 

09 u  -i  E"'- 

(eq.  16) 

^-1  1 

Label  D'. 

EE-  EE  E 

n  F;  ■;  “T  *:  F'  ”  ' 

Calculates  Xo^ootinium  H 

EEE  E.;^  ; 

n P F  Pa  - 1 

0 

J  ^  J  \ 

ox;  1;  4; 

i  4-  •'  ': 

Ij  0  il^  IF  0  F 

E4S  Eifl  :-; 

04  9  iP-  - 

■|4h  “S 

0  4  9  ri  s 

PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY  COMMENTS  STEP  CODE  KEY  COMMENTS 


Estimate  for  R 


Stores  Y 


1/3 


in  R03 


PROGRAM  MEMORY  (LIST) 


i 


STEP 


CODE 


cr 


KEY  COMMENTS 


,-■  :  ;  K. 

r.' i__ 

Improved  R 

^5  - 

Label  D. 

Q  target,  opt.  H 

-7  - 

Label  C  . 

:  -r 

P  target,  opt.  H 

■  -  ir 

Check  and  print 

Y,  VN,  K 

Return  without  calcula 
ting  WR  if  1 imi t  error 
occurred. 

H  * 

Calculate  t  (needed 
for  P  target  W  max) 

Calculate  H  opt. 

"  ^0 

is  in  R„.,  from 
SBR  +/- 

F  'V  ■ 

Print  optimum  H 

p ' 

Calculate  W  max 

+ 

I  Make  W  max  •  2 

(  ■  ° 

)  (Eq.  4) 

.  ' 

STEP 

CODE  key 

COMMENTS 

C; 

pS  "  =  " 

j  4  0  4 

Modified  W 

■5-  4=  i  ^ 

t  register  =  WR 

~  -  -■ 

' _ 

Which  program  was  called 

l:!  4  'r^ 

:  7  4 

WR 

£££:' 

Continue  calculation 

■’ 

2  i n  Pqm  3 

4  -i  K  ! 

Return  without  printing 

-  i  - 

WR  i f  cal  1  was  not  to 

p  -i 

:  -  <  i 

program  2  (beina  used 

.-  •:  4  •  •  : 

as  subroutine) 

£59 

'  b  L  t'  L 

Label  B. 

C  4  -j 

-  — 

Q  target  | 

4^-4 

. 

Label  PAD  (same  as  A) 

£44 

L  y  £ 

Label  A. 

C  b  J 

'•*■  t“:  •; 

4  t 

■■  ^  4  4 

P  target 

4 1  -z^ 

■  -  4  4  F. 

Check  and  print 

^  3  F'  C  L 

V,  VN,  K 

:  7  '  1  ' 

H 

■r 

"  P  tr-i 

-  H  •  :  — • 

11  H 

9^  IFF 

Check  S  print  H 
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PROGRAM  MEMORY  (LIST) 


PROGRAM  MEMORY  (LIST) 


TEP  CODE  KEY 


COMMENTS 


STEP  CODE  KEY 


COMMENTS 


M  --i 

4 1  j  Li 
4  ij  1 

402 

403 
4  04 
4  ij  *1' 
4  i'i  f-. 


r.  L  L 


Continue  if 
H 


1  < 


Hr 


R  =  i: _ 1 

*^05  Hq 
AOV”” . . 


Calculate  b  for  Q 
target  (Eq.  19) 


y-- 1 

«0 


Calculate  x'  for  P 
target  (Eq.  11) 


423 

5  2  EE 

424 

i.' 

425 

-  4 

42'" 

-  2  '  _  ' 

4  2 

-  3  P  I  L 

H  opt 

4  4  r* 

f'  1  '‘’i  1 

4  -2=  U 

■  - 

4  ■' 

13  2 

y-  -  1 

4 

2  O' 

4 

*4  -j. 

-  r^‘  i.i 

P  •  ^ 

45  H'  T 

4+- 

H  ' 

4  O  C: 

-3  RlL 

0 

4  z-  -■'Z- 

2 

4  4  Li 

2 '' 

Calculate  y  (Ep-  12) 

44  4 

L  5  + 

4  *4  -L 

4  -J;  r'  i.'  i_ 

AJVN 

H  4  4 

i-l  1 

4  4  L' 

.A  -•  .  - 

L'  D  "■ 

4  4 

4 

M*  •* 

i  N  '2 

4  D  L- 

0  '*!•  i  t  : 

/H/Hj,  -  1  Y 

451 

452 

-  ■;  p':i 

G'/Ho  -  '/ 

4‘^LL 

0^  -i  •O^ 

w  , 

max 

4  -J  -t 

4  0  *Ii 

AC.- 

22 

-•  C 

‘-f  .J  iZ'- 

2  3  LHS: 

459 

-9  PRD 

(Eq.  5) 

4r4Ti 

4  4  fl  4 

4  1 

-r  3  F:  il  L 

Wfl 

4  64 

-  -r  iJ  - 

4  2^ 

3  1  G  i  n 

444 

•-i  4  L- 

■.  i"- 

.  -J  _ 

OiETF, 

Calculate  .  for  P 

4  b 

9  L 

target  (Eq.  6) 

4  b 

U  t-  L' 

469 

0  3  3 

STEP  CODE  KEY 

PROGRAM  MEMORY  (LIST) 

COMMENTS  STEP  CODE  KEY 

COMMENTS 

564  62  I  r-i 

5  4S  1  NX 

611  05  05 

612  42  RCL 

AJVN-VN  =  C(''nR)  ^  R05 

- 

56-  < 

612  13  12 

614  95  = 

VN 

562  24  CE 

562  25  + 

c;  ri  i 

S  1  L-’  ^  ic!  'z-  T  U 

616  Z 1  2 1 

A 1  7  n  1  1 

AJVN 

c;-.  _ 

Initialize  for  printing 

572  -2  RTN 

^0 

4. 1  9  4  9  T  n 

routines  in  Pgm  9 

C.  “  2-.  I:  •  J 

Check  &  print 

620  22  02 

CT  ~  -  i  'i  -  i 

Y,  VN,  K; 

6Z  1  4  7  R  L-  L 

575  26  PGM 

5  7  -  :  7  E:  * 

Calculate  AJVN,  max  HOB 

622  05  05 

k(i?nR) 

572  -1  GTD 

=;Hn  24  -i-/- 

626  '34  - 

2  ?  55 

Lower  limit  on  VN  = 

5  2  i  2  2  R  D 

Go  to  Page  3  to 

628  02  2 

max  {0,-C(£nR)} 

582  26  PGM 

print  WR,  calc. 

7  7  1  X  - 

52  4  1  2  P, 

6  2  1  '1 ,3  :3 

Upper  limit  for  Q  target 

585  22  R ! N 

6  8  8  0  4  4 

=  34  -  C(£nR) 

5  £'!■:■  ’SS 

VN  adjustment  factor, R, 

6  9  '3  .3  9  7  L  T 

5  2'"  5  2 

for  P  target  (Eq.  2) 

6  2  4  fi  5  5 

Upper  limit  for  P target 

522  2  2  !23: 

582  -5 

ip  8 

=  56  -  C(f.nR) 

520  43  RCL 

TO  ^ 

OC  -5 

591  Li  4  04 

-j  -1  j 

593  34  rx 

628  42  RCL 

6  3  9  Ci  1  i  J 1 

6  4  0  }•  2  i  T 

641  42  POL 

Given  alphanumeric 
(step  115) 

524  -1  'X 

R 

642  25  05 

C(fnR) 

5  2  -  2-5  |2  L  F: 

f;.-L 

5  q  q  -  -  q  i 

Continuation  of  SBR  +/- 

644  26  RGM 

6  4  -i  r'  ’J  7 

4  1-  .2: 

Check  and  print  VN 

6^  Ql  q  5 

■  nR 

h:  4  —  p' 

6  4  ;  n  1 

6-44  “5 

Given  alphanumeric 

i  2 

C  for  Q  target 

650  ::  1 

6  5  .  1  7  6 

^  qU5  ;  2  2:  ‘  i 

652  -5 

Alpha  for  K 

qOq  -i  1 

ij  J :  1 

6.  i2i :  -  2':  il  * 

6'  C'  2  2  5  + 

C  for  P  target 

65  2  :2  7.“^ 

6^  5  4  2  2  q: 

655  lx 

6  5 1.  2  9  9 

t'  1  'J  4  !:,  T  D 

1 _ J 

6  5  7  :■  6  P 1 J  M 

Check  8  print  K 
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PROGRAM  MEMORY  (LIST) 


Section  3:  Programs  3.0  -  3.2 


Probability  of  Damage  to  Point  and  Circular  Target 
With  Normal  or  Uniform  Target  Element  Distribution 
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( DNA  AP-550  PROMPT  Al  HtTI 


Pd  to  POINT  and  CIRCULAR  TARGLTS,  NORMAL  and  UNILORM  DIST. 

CLP  (ft) 

Target 
Radius  (ft) 

Offset  (ft) 

Damage 

Sigma 

3 .  n  •I’d 

V 

Weapon 

Radius  (ft) 

SOURCES  OF  DATA: 

Defense  Intel  iiejence  Aqency,  Physical  Vulnerability  Haruibook- 
Nuc lear  We^ipons  (U)  ,  AP-550-1-2-G0- INT,  June  1,  Part  IV, 

Section  A. 

DFISCRI  PTION  : 

“  ■  2,^  YJl 

The  objective  of  this  set  of  J  ijroiirams  is  to  cali-ulate  tin' 
P'robability  of  damaye  (Pd)  to  point  and  circular  area  taruets. 
Normal  and  unifcjrm  taryet  element  distributions  <n  e  ins  i  derod . 
For  area  taryets,  the  probability  of  d.imaae  is  i.ajui  valent  io 
the  expected  proportion  of  the  t/uajet  to  be  daruaaed.  Tb.e 
adjusted  CEP  methodoloyy  is  utilized  to  coinptite  th.e  Pd  to 
circular  tarc;ets.  Auxiliary  maynetic  card  prourams  for 
computing  Pd  to  area  targets  of  geometries  other  than  circular 
by  the  weighted  average  point  method  are  given  in  Appendix  D. 


B.  I nput s-Outputs 

The  three  calculations  comjirisin'i  this  proipam  sc't  and  their 
ne'cessary  inputs  are  as  frillown: 


Procjram  3.0:  Pd  to  rioint  tarye'ts. 

Inputs:  Weapion  radius  (ft) 

CEP  (ft) 

Offset  (ft) 


Damaye  sigma 

Prc'yriim  3.1:  I’d  to  circular  normal  tarap-ts. 

Inputs:  same  as  3.0  with  the  addition  of  taryet.  r.idius  (ft  ) 

Pr  i.yram  3.2:  I’d  to  circular  uniform  target;;. 


I  ni  ’Ut  s  :  ;;a!ii(  ■  a;;  3.1 
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C.  Limits 


Weapon  radius  (WR)  : 
CLP  : 

Tarqet  radius  (TR) : 


WR  >  0  ft 
CEP  >  0  ft 
TR  >  0  ft 


Offset(x):  x>0ft 

Pamaqe  siqma  (a):  0.1<a<0.5 

U.  Data  Storage  Lcjcations,  Printer  Alphanumer  i  cs 

rhe  user  can  find  the  following  information  stored 
indicated  registers  (R); 

Variables  Registers  Al phanunu' r i cs 


Weapon  radius  (ft)  Rl2  W 
CEP  (ft)  R15  C 
Target  radius  (ft)  Rl6  T 
Offset  (ft)  R17  X 
Damage  sigma  R18  S 
Prob.  of  Damage  only  in  display  P 

E.  Additional  Information 


in  the 


Prassing  R/S  will  initiate  the  previously  keyod-in  type 
of  calculation  even  if  the  inputs  arc  changed.  Several  CROM 
programs  require  an  input  of  target  radius  (TR) .  If  one  of 
l  iiese  programs  is  run  prior  to  cne  point  tarqet  calculation 
and  the  calculator  is  not  turned  off,  then  on,  the  value  of 
the  target  radius  previously  entered  will  bo  printed  when  the 
point  target  calculation  is  initiated.  At  all  times,  however, 
a  taraet  radius  of  zero  v;ill  be  useti  intc^rnally  ’or  1  he  jxiint 


t.irac'f  calculation. 


EXAMPLE  3.0,  3.1,  3.2 

Given  the  following  information,  calculate  the  probability 
of  damage  to  a  point  target,  circular  target  of  normal  distri¬ 
bution  and  radius  of  500  ft  and  a  circular  target  of  uniform 
distribution  and  radius  of  1000  ft. 

Weapon  radius  =  8500  ft 

Damage  sigma  =  0.2 

Offset  distance  =  6000  ft 

CEP  =  1000  ft 


INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

Turn  off,  then  on 

Select  program  01 

Enter  weapon  radius  (ft) 

8500 

2nd 
Pgm  01 
C 

0 

0. 

8500  . 

Enter  CEP  (ft) 

1000 

2nd  A' 

1000  . 

Enter  offset  (ft) 

6000 

2nd  C 

6000  . 

Enter  damage  sigma 

.2 

2nd  D' 

0.  2 

Calc.  Pd  -  point  target 

3.0 

2nd  E' 

PRINT 


3. 

5  0  0. 

1  000. 

0  . 

6000  . 
0 . 2 


Enter  Target  2  radius  (ft) 

Calc.  Pd  -  circular  target 
normal  distribution 


2nd  B' 
2nd  E' 


3.  1 
5  5  00  . 
1  0  0  0  . 


6  n  0  0  . 
0  .  2 


0  .  H  9  9 


0  .  H99 


EQUATIONS 


Definitions 


F 

WR 

CEP 

TR 

X 


CEP. 


a 

W 

X 

c 


probability  of  damage 
weapon  radius 
circular  error  probable 
target  radius 
of  f  S(3t 

damage  sigma 
ad  lus  tea‘*'CEP 

WR/CEP  ^ 

X/CEP^ 

offset  at  which  P  =  .5 
offset  at  which  P  =  .98 


Calculation  of  adjusted  CEP: 


CEP^  =  yCEP^  +  K  X  TR^ 
where 

K  =  0,  for  point  targets 

K  =  .231,  for  normally  distributed  area  targets 

For  uniform  target  distributions, 

K  =  .4,  if  WR + CEP  + X  2  TR 
=  . 5  otherwise . 

Calculation  of  probability; 

P  =  {1  +  exp(R)  )  ^  ,  where  R  =  R(x,  W,  ')  : 

inj (1- WR/X] 

For  W  30,  R  =  -.07Z^  -  1.6Z,  where  Z  =  ^ 

N/-fn  (1- 

For  W  "  30, 

R  =  R'  ,  if  X  _  2 

=  R'  +  cos  (45x)  (Rq  +  -  R'  )  r  if  x  '  2 


(1) 


(2) 

(3) 


(4  ) 
(5) 
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\r::  . 


where 


Rq  =  (3.6'-2)W-  (1. 3  +  1. 1  in  [W(.  24+'7)  ] 


13  39exp  {-4  2r)  -  2n  +  3.7\  (•'71-exp(_3 


a(W,  ■)  =  exp[^  \  / 

,  =  7000r.^-^exp(-2lo)  {V\’ -  5.5) 
T(x,W,.  )  =  qtan(90)  ,  if  b  (x-,  )  '•  90 

=  q  tan  (-90)  ,  if  b  (x-'j  )  •'  -90 

=  q  tan  (b  (x-t  )  ),  otherwise 
T'  =  tan  (b  (e  '-;:)  ) 

L  =  qin  max  ,o|  +  10~^ 


L' 

=  £  n 

max 

)  2 

1  -r ’ +2  ' 

o|  +  10~^ 

q  = 

in  1 

1 

.98 

1 

u> 

CO 

.  = 

w  - 

.2  -  {; 

;  +  1 

H) 

:•  = 

. 61 (W  f  4 

’  -3. 

2  2  3 

2)  ( 

+10-^^-2- 

2^) 

1  _ 

-  6  '  + 

1 

1.2' 

exp  (10  - 

1  .  IW) 

jw 

Dxp  ( 

-'V^P  ^2  . 

69  ■)  -  2.7 

n  '  +  9.47 

b  = 

2Ge 

>:p  (-? 

.  1  - 

■  W/ 1 6 ) 

A1  1 

tr  i 

^(ononto 'c  r  i< 

c  arqumonts  are  in 

deqrees . 

-  (Y  +  i  Y  '  )  (8) 


PARTITION 


AUTOMATIC 


LIBRARYMOOULE 


CROM  A-1 

(Program  3)  _ 

DATA  REGISTERS  FOR  EXAMPLE 


COMMENTS 

Suppresses 
printing  of 
probabi 1 i ty 

Test  for  limit 
check  error 


COMMENTS 


Code  for  called  program 
WR,  W,  .'2  -  1 
indirect  recall  (Pgm9) 
r.FP. 


COMMENTS 


LABELS 

KEY  COMMENTS 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE  key 


COMMENTS 


D./CEP,  =  D. 

1  a  1 

Label  ADV 

Offset=x  (x  or  D^. ) 
Tangent  part  of  R 


Logarithmic  part  of  R 


. .  .  cos ( 45x ) 


E  '  Calculate  P  from  R 


(return  without  print¬ 
ing  if  fl ag  2  set) 


Print  Prnhahility 


R '  =  n  -  —  -  ^ 
^  M  T  * 


la! ml  r. 

Pd  for  Circular  llnifnri 
Targets 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY  COMMENTS  STEP 


If  WR  +  CEP  +  X  >  TR, 
then  K  =  .4 


CODE  key _ COMMENTS 

to  I  :l  WR  >  0 

j  09  WR  (round  to  3  signif- 
19  E‘  leant  digits) 


r  4 

:  1  ^ 

244 

-  2 

(set  up  for  x) 

24  0. 

-7  r:  ■ 

I  Return  after 

(K  in  display) 

^■*47 

~  C 

^2  T  ^  i  T 

\  printing  WR  if 

1  Frac(ROO)  >  .4 

Label  B. 

2  ' 

2E 

\ 

Pd  for  Circular  Normal 
Targets 

c;  9 

■CO 

:  -  :  - 

/ 

K  for  normally 
distributed  area 
targets 

0  cr  2 

1  Set  up  automatic 

1  increment  for 

1  printing  parameters. 

Label  A.  H 
Pd  for  Point  Targets  j 
K  for  point  targets  i 
Labels  A,r:,C  start  here' 
Label  D  starts  he’"° 


I  ’T " 

! 

I 

'Print  CEP 


TR 


Prill*  t.irqi’f  radius 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE  key 


COMMENTS 


•  1  <  ij  <  .5 


Print  sigma 

.r2 


WR/CEP 


Otherwise,  CLEAR  and 
start  fit 

X/CEP, 


Label  D. 

Calculates  probability 
of  damage  to  rectangu¬ 
lar  targets 


Label  E  . 

Calculate  s  ,  >■ '  ,  a  , 
'^0 

W  =  WR/CEP,, 

Calculate  b  (Eo.  IS) 


Calculate  a  (Eo.  8) 


8  PEL 


{-■ 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE 

42-:  C6 


COMMENTS 


1339  e  -  2.-  +  3.7 


Calculate  '-.pi  (hi 


.71  exp 


Calculate  ,  ([{].  Q) 


F :  L  ^  1 .  ' 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  COOE  key 


COMMENTS 


Section  4:  Proqrams  4.0  and  4.1 

Personnel  Vulnerability,  Weapon  Rad 
Determination . 


SOURCE  OF  DATA: 

Defense  Intelligence  Agency,  Ptiysical  Vulnerability  Uamibixjk- 
Nuclear  Weapons  (U)  ,  AP-550-1  -2-bO- 1  NT,  june'TT,  l969  ,  i'art  ^FlI, 
Section  A. 

DESCRIPTION : 

A .  Obj  ective 

The  objective  of  this  set  of  two  programs  is  to  evaluate 
weapon  radii  for  fatalities  or  i  ncai^ac  i  t  a  t  j  ng  casualties  to 
unwarned  personnel  in  various  environments.  Program  I . 0  calcu¬ 
lates  weapon  radii  and  presents  daniarte  siumas  for  any  liOH  ..nd 
program  4.1  calculates  weapon  radii  and  d.image  sii.jmas  ■n'r'-ca'- 
ated  by  detonation  at  the  near-oj-t  irnum  HOB.  Airblast  and. 
nuclear  radiation  effects  weajjon  laidii  are  combined  in  the' 
manner  described  on  iJage  I  I  1-2  of  AP-5S0  to  form  a  combi  lU'd 
weapon  radius.  Thermal  radiation  effects  are  considc'ri'd 
only  for  exposed  personnel  taking  no  evasive  action. 

B .  I nputs-Qutput s 

The  two  calculations  comf^rising  this  procjram  set  and 
their  necessary  inputs  are  as  follows: 

I’rogram  4.0:  Weapon  radius  and  damage  sigma  -  any  HOB 
Inputs:  Yield  (KT) 

HOB  (ft) 

Environment  (see  subsection  E  below) 

Program  4.1:  Weapon  radius  and  damage  sigma  -  near-o])!  i  mum  HOB 
Inputs:  Yield  (KT) 

Environment  (see  subsection  E  below) 


C .  Lim^^ 

Yield:  0.1  KT  <  Y  <  30  MT 

HOB;  0  ft/KT^^^  ^  SHOB  -  1000  ft/KT^-^^ 
where 

SHOB  “  scaled  HOB 
Environment:  Env.  =  1,2,  3,... 20 


D.  Data  Storage  Local  i  ons  ,  I’l'into^  Al  phanumcr  i  cs 

The  user  can  find  the  fo] lowing  information  stored  in  the 
inciicated  laojisters  (!■(); 


Variables 


R('(j i_.s  ters  A]  phanumcr  i  c_s 


i'  i  e  1  d 

HOB  (jjqm.  4.0) 
Lnvi  ronnu'nt 
Wc'apon  radius 
oj-'tinuim  HOB  (tajm. 
Daina^je  Sipina 


UlO 
Rl  ] 

not  retained 
only  in  disjilay 
4.1)  Rll 

R18 


Y 

H 

E 

',v' 

H 

S 


E.  F’orsonnel  Lnv i  I'onmonts 


The  followincj  personnel  and  environment  indices  are  to 
be  used  in  conjunction  with  the  personnel  vulnerability  programs. 
The  index  number  associated  with  each  environment  description 
is  to  be  entered  with  key  C  when  exccutinc;  those  jirograms. 


Environment  Tnd_ex 

Rcrsonnel  in  wood  frame,  wall  bearing  and  adobe 
buildings,  and  forests 

Fatalities  1 

Incapac  i  tat  int)  casualties  2 

Personnel  in  multistory  residential,  commercial  or 
industrial  buildin^is.  Steel  or  reinforced  concrete 
f  ramed 

Fatalities  1 

I  ncafiac  i  tat  i  ng  casual  ties  4 

Personnel  in  basements 

Fatalities  3 

Iiu'apacitat  i  ng  casualt  ics  t 
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Personnel  in  t\)xholes 

Fatalities 

Incapacitatinq  casualties 

Personnel  in  tanks 

Fatalities 

Incapacitating  casualties 

Personnel  in  di'libe'fate  uncier<-jround  shelters  (2  ft. 
earth  cover)  . 

Fatalities 

Incapacitating  casualties 


Persontu'l  i  .n  cn-iped 
ear  t  h  co\’e r  i  . 


i’ersonnel  in  un^.ler' 


Personnel  in  or'cn 


Personnr'l  in  urban 


ent  untlerqround  shelters  (2  ft. 


Fatalities 

Incapacitating  casualties 

round  command  posts 

Fatalities  and 
Incapacitating  casualties 

urai  and  open  urban  areas 
Fatalities 

Incapacitating  casualties 


r  o  Cl  s 


Any  injury 


E.xposcl!  iiersonnel  takinc;  no  evasive  action 

Thermal  fatalities 
Thermal  incapacitating 
casua 1 t les 


7 

8 


9 

10 


11 
1  3 


12 

14 


15 


IG 
1  7 


18 


19 

20 


F.  S^H'-'CMipl  I'ea  t  u  res 

The  environment  index  number  is  not  stored  durinci  prociram  execution; 
therefore,  it  must  be  re-entered  each  time  programs  4.0  or  4.1  are  run. 


) 
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1 

EXAMPLE  4.0,4.!  j 

1 

Given  the  following  information,  calculate  the  weapon 
radii  and  damage  sigmas  for  a  contact  burst  and  a  near-  ; 

optimum  height  of  burst. 

Yield  =  100  KT 

Environment:  Index  number  =  1. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off  -  then  on 

0 

2 

Sel ect  program  01 

2nd 

Pgm  01 

0. 

3 

Enter  yield  (KT) 

100 

A 

100  . 

4 

Enter  HOB  (ft) 

0 

B 

0. 

! 

5 

Enter  environment  index 

1 

C 

1 . 

6 

Calculate  weapon  radius  and 

4.0 

2nd  E' 

damage  sigma 

100.  V 

1  ; 

i  .  t_ 

n  N 

0 .  1 0  s 

7070. 

o 

"--J 

o 

7 

Calculate  weapon  radius  and  damage 

sigma  for  near-optimum  HOB 

8 

Re-enter  environment  index 

1 

C 

9 

Initiate  calculation 

4.1 

2nd  E' 

4.1 

100.  Y 

Note;  The  near-optimum  HOB  is 

1.  E 

printed  with  the  inputs  in 

371 3.  ‘  h 

an  unrounded  format. 

0.  Vri  S 

9830. 

8f-;30.  N 

‘prints  as  3713.271067 

EQUATIONS 


Def initions 

Y  =  yield  (KT) 
fiOB  =  height  of  burst,  feet 
U  =  scaled  HOB  = 

E  =  environment  category 
Vn’R  =  weapon  radius 

■  =  damage  sigma  (calculated  by  the  CROM) 

Q(x)  --  approximation  to  the  complement  of  the  cumulativ'c 
normal  distribution 

V,  M,  K,  Xq,  'jj,  arc  parameters  for  the  first  18  environment 

categories  that  are  stored  in  look-up  tables  in  the  CROM. 


F. 

V 

o 

o 

(— 

1 

1  OK 

•  OIXq 

10 

I 

i  12 

20 

62 

8 

4 

2 

2 

5 

28 

43 

10 

5 

2 

3 

14 

26 

62 

7 

3 

4 

5 

33 

43 

10 

4 

3 

5 

16 

28 

62 

7 

4 

5 

6 

7 

36 

33 

9 

4 

5 

7 

21 

14 

0 

0 

2 

3 

8 

16 

23 

0 

7> 

3 

3 

9 

21 

21 

0 

0 

3 

) 

J 

10 

17 

29 

0 

0 

3 

.J 

11 

27 

0 

20 

0 

7 

7 

12 

21 

0 

0 

0 

4 

1  3 

1  6 

1  2 

0 

5 

4 

1  4 

1  0 

12 

0 

8 

4 

17 

>.  1 

0 

10 

0 

3 

: 

1  h 

1  0 

2  7 

7  4 

9 

s 

2 

17 

7 

■)  ■) 

6  2 

9 

7 

•) 

1  8 

4 

4  1 

70 

9 

r. 

1  .  ! 

’<j  rarrie 

tors  for 

the  fi 

■  s  t  18  1 

■iTV  i  rojjTTM  i] 

1  !  v’, 

h4 


For  the  first  18  cateqorics,  WR  is  calculated  by  combiniru;  a  blast 
weapon  radius  with  a  radiation  weapon  radius: 


where : 


Q(x)  =  1 


[l  +  exp{-x(1.6  + 


.07x^))] 


2 

R 


n(l 


n(l 


„  2 
‘'r' 


rR-  =  WRRexp(~i4)' 

'  r^Q  (blastlexp^^t^pj  , 


r^Q  'blast)  is  obtained  from  calculat  i  :i  :  :  V.'R  f  rcni  the 

P-tarqet  code  (which  assumes  -^  =  ,2),  .aid  Tt  i  n>:  it  to 

r ^ „  (blast )  by 
J  u 

r_„  (blast)  =  (l-'^)WR  (blast)  =  .  96W1!  (bl  ast  1  . 

3  U  n 

The  radiation  component  of  the  weapon  radius  is  calculated  as 
follows : 


WRr  =  WRqCXp|-.01cxp(- 


W.j  ^  w  +  w 

H  -■  y 


V  y2  H 

The  four  parameters,  Wj|,  W^,  ,  are  calculated  as  functions 

of  yield  and  HOB: 

V'  -  -180  f  10^  ’ 
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(  !  ) 

(2) 

(  3  t 

I  4) 

(  5) 

(6) 

(7) 

(8) 

(9) 

(10) 

(11) 


,  ,  ,  /l24  ^0  (  H  f 

0  O'  V  ”  50^  V0/\ 


:ii  =  iog(^^  +  v''l-6 
\  -0 


aexpd.  3  (y-Y  )  1  . 

"o  '  rggrri . 3 fy-ypT  “Pl-vv  ) 


whore : 


y  =  log  Y , 


-  .6  +  .11  +  —4^^,  and 


y^  =  1  +  a/.  38 


WRq  =  Y'q  10^^~ 

W„  =  ,  for  H  700 


where : 


4 

q  =  cos 


(.  9H  )  exp  I  and 


nil  -  ^^•■'oqY. 


(Trigonometric  argument  is  in  degrees. 


W  =  M  + 


locjY  -  7,  if  ~  .5 


0,  otherwise 


I  +  cxp  jll  loqY  -  30  +(i^g)  I  (.8  +  10 


For  f'nvironmcnt  categories  19  and  20, 


WR  ^  [a  +-  ,{V-l>)'4  whore  a,  b,  p  arc'; 


Coef  f icient 

Class  19 

Class  20 

8  ^  10“® 
a 

.8*.3exp(3fj) 

.4  +  .7exp(53j 

(26) 

lO^u 

667 

• IH  ,  , 

1100.667  +  • 3  /  + 

•20exp(i»J 

(27) 

4b 

•°°®^^P(306) 

•»<>5exp(3yj 

(28) 

P 

-.445 

(isM 

(29) 

67 


AUTOMATIC 


LIBRARY  MODULE 

CROM  A-1 

(Program  4)  _ 

DATA  REGISTERS  FOR  EXAMPLE 


Supress  print¬ 
ing  temporar¬ 
ily  (copies 
flag  1) 

Distinguish 
calc.  4.1 
from  4.0 


COMMENTS 


STEP  CODE 


-  diqi  ts  in  coefficients 
Y-1.3 

used  by  Pgm  2 


Yield 

HOB 

Envi ronment 

packed  coefficients 

K 


LABELS 

KEY  COMMENTS 

R ’  data  unpack! ng 

r.  I  -X 

c  e 

Y  ‘  X . ogY+l 
I  '  X  -0(x) 
t  "  shi  ft  from  r  to 
r  WR 

-  Print  HOB  ; 

;  calc.  y1/3  j 
c  calc.  4.1 
"  'cal  c  .  4 .0 


H,  scratch 
.9H,  scratch 
WR,  scratch 
scratch 
scratch 
scratch 
scratch 


PROGRAM  MEMORY  (LIST) 


STEP 

CODE 

KEY 

COMMENTS 

STEP 

CODE 

KEY 

COMMENTS 

LBL 

Label  A'. 

0  4  “■ 

-j 

fi  : 

4  1 

0:44; 

4;  — : 

c: 

Li  Li  _ 

-- 

Data  unpacking: 

0  4 

2-5 

i  2- 

"■  '  - 

T;  C;  T 

-  =; 

j. 

f:  f:  - 

-  - 

_ 

nf  ■■ 

i"i  f:  - 

4 

r' !  J 

Shift  decimal  by 

n  s  L 

4- 

= 

Q(x) 

f:  -'i  “ 

fog(R02)  places 

r-.  cr  -. 

P  T  Li 

■;  i~-  - 

-  ^ 

- 

■~i  cr  ^ 

j  f-r  1 

Label  E'. 

~  4 

T  ^ 

cr  J 

■  “I 

E  ^ 

n  ■  ■ 

T  - 

Store  remainder 

T:  “ 

^  rr 

Used  in  combining 

-  - 

,  - 

fi  S  >: 

CTp 

al gori thm. 

012 

~  4 

■og(R02)  digits 

-  :■ 

i 

■96r^^.  (rp) 

-L  2i 

-2 

r:  ^  i.  • 

r.  '  '  i 

Retrieve  in  .xxx  form 

1  i  h;  '  ! 

~i 

i  j  1  -- 

L  t:^  L 

Label  B ' . 

06  1 

4  2 

r.  •_ 

,2 

'•’b 

P:  ’ 

i  i  h. 

222' 

2:2 

~  4 

0  6  J 

- 

-■  ■ 

7-2 

e 

1  j  <r.  5 

n  K  r: 

r  .1 

F  * 

f;  ■  '• 

4  " 

i  f  i 

fi  4. 

— 

Label  E. 

f  i 

L  C'  — 

f'  * 

Label  C. 

0  b  b 

;  5 

Check  and  print  UOR 

9  9 

— 

F :  i 

0  -■  ■ 

+ 

j  :  0  2 

7  0 

...  ■ ogY+1 

2 -IT 

7  7 

c,  T  n 

for  indirect  RCL  (barn  9) 

„H"  J 

“  2 

22  ^ 

Label  D'. 

tf  I- 

1  - 

"  T 

1 

j 

i  9  7 

— 

- 

Calculate  Q(x) 

'  6 

. 

1 

1  -i  T.  • 

- 

(approximation  to 

fi  :=-  ' 

cr 

_ 

1  -  ^ 

- 

- 

compl  anent  of  the 

- 

.  V 

r  ' 

^O^yl/S 

1  2  J 

cumulative  normal 

,7T^ 

■  : 

0  2^ 

-  2 

di St . ) 

ili  2  - 

-  t 

F‘  ■ 

(pn?  =  frcir  for  2 

I  1  ■ 

^J2i 

2 

i  4“-  ~ 

7 1 

rail)  ! 

;  IJ  1  - 

2^ 

i  i *- 

Print  UOB 

‘  4 

5 

- 

l_i  4- 

“  _ 

r  ,  '  - 

1  il  “ : 

-  : 

; 

‘r  : 

- 

Label  D.  ; 

1 

'  ~ 

J, 

fi  4  '• 

.2  - 

F _ 

Calculatn  Y*'’'’  1 

4  4 

cr  -. 

fi  4  : 

cr 

L'  J 

•  ^ 

E  ■ 

ij  2 

7. 

^  *^4  '■ 

1 J  4  f;, 

- 

0  2 

*■ 

6 


PROGRAM  MEMORY  (LIST) 


COMMEIVITS 


STEP  CODE 


COMMENTS 


.  .  .  HOB 


Label  B. 
Opt.  HOE 

Label  A. 
given  HOB 


Flag  9  up  >■ 
(i.e.  2.6) 


normal 


Flag  9  down  ^  use  opt. 
HOB 

Initialize  flag  used  to 
suppress  printing 
temporari ly 


Print  Y 

Skip  register  pointer 
to  R12  =  environment 


Retrieve  packed 
coefficients 


I f  E  18, 
print  results 
(calculation  Is  already 
complete ) 


' W  “  1  in  case  HOB  ■  0 


Upper  limit 

Print  environment 
category 


;  see  Eg. 5 


Ouiiibcr  of  dioits  for 
data  Linnackinn 

f’rn'jraiJi  step  lof.ation 
for  [lacked  (oefficlents 


(If  E^l 5  ,  then  sk i n 
rad  i  a  t  i  on  (.on  '  e  i  i  'l  *  i  iw 


(Op*  .  HOB-  m  ')  X,, 


ie.  f.  I 


It 


PROGRAM  MEMORY  (LIST) 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE  key 


COMMENTS 


-14. 


lOOOY 


1/3  .  .  y^/3  pj^l 


Y-1/3 


HOB 

Print  HOB 


I  a:  see  Eq.  26 

-6 


^iJP- 

a 


^  c 


b:  see  Eq.  28 


-  n 

-  3"^  ,  4b 


'(Y-b) 


P 


^  t::  i( 


'  a:  see  Eq.  26 


W'^fEq.  26) 


^  D  '  for  classes  I'* 


Mj 


y  Q  E- 
yn  P 


^2  F^H 


Calciilation  nf  AO'.'f, 

sui'prossisi . 

2  d i  ni  t  coe  ‘'f  i  ■  i  en  t 


unpack  K/10 


unpack 


Cq  -  See  Eq . 1 1 


Ecr  P  taroet 


Set  if  flaa  1  vjas  i 


oriqinally  set 
Sunin'css  nn'i*'' 


C  S!' 


i".a  1  c  u  1  a  t  i 


Cp',  f r.  •  (O 

qi ‘ ion  r ’ 


i  C  i  n  a  1  ( 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KcY 


COMMENTS 


STEP  CODE 


KEY 


9  4  ij 

M4  ^ 


I-  CT 
L  CT  - 


Subroutine  used  by 
environment  categor 
ies  19  and  20. 


(Next  coefficient 
has  3  digits) 


/ 


iNOTE:  Overflow  from 
this  program  is  in 
Pgm  9,  steps  108 
through  186,  located 
at  page  1-17. 
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COMMENTS 


f  DNA  AP-550  PROMPT  Al  HtTI 


MINIMUM  SAFE  DISTANCE 


T  roop 

Di spos i ti on 

Vul nerabi 1 i ty 
State 

Acceptable 

Risk 

Ues i red 
Assui'ance 

5.n  •  RS.MSD 

^  Yield  (KT) 

HOB  (ft) 

CEP  (ft) 

Offset,  Rad. 
of  Safety 

PEH  (ft) 

SOURCE  OF  DATA: 

Defense  Intelligence  Agency,  Physical  Vulnerability  Handbook- 
Nuclear  Weapons  (U)  ,  AP- 5 5 0- 1-2’^TO-InT  ,“june  T,  19  6^7  Pa rn.  i  i  , 
Section  C. 

DESCRIPTION : 

A .  Objective 

The  objective  of  this  set  of  two  programs  is  to  calculate 
the  radius  of  safety  (RS)  and  the  associated  minimum  safe 
distance.  The  radius  of  safety  is  treated  as  a  function  of 
desired  height  of  burst,  yield,  troop  vulnerability  condition, 
the  acceptable  risk  category  (see  subsection  E) ,  and  vertical 
delivery  error,  i.e.,  the  probable  error  in  height  of  burst  (PEH). 
Considering  the  PEH  in  the  radius  of  safety  calculation 
requires  that  the  user  also  define  the  confidence  level 
he  desires.  For  example,  if  the  user  desires  a  99%  assurance 
level  value  for  the  HOB  used  in  the  radius  of  safety  calculation, 
3.5  X  PEH  will  be  subtracted  from  the  entered  HOB.  After  the 
radius  of  safety  calculation  the  program  proceeds  to  calculate 
the  minimum  safe  distance  (MSD) .  The  MSD  is  the  sum  of  the  RS 
and  a  buffer  distance.  The  value  of  the  buffer  distance  is  a 
function  of  both  a  multiple  of  the  circular  error  probable  (CEP) 
and  the  troop  disposition  (see  subsection  E) .  The  multiple  of  the 
CEP  used  is  a  function  of  the  desired  assurance  that  the 
acceutcible  weapons  effects  will  not  be  exceeded. 

An  inversion  of  the  above  buffer  distance  calculation  is 
al;u5  provided  which  allows  the  user  to  determine  the  [probability 
that  a  [)0[mlation  located  some  distance  greater  than  the  radius 
of  safety  from  the  desired  ground  zero  will  exjjericmce  no 
greater  than  the  acceptable  wctqpons  effects. 
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B .  Inputs -Outputs 

The  two  calculations  comprising  this  program  set  and  their 
necessary  inputs  are  as  follows: 

Program  5.0:  Radius  of  safety  and  minimum  safe  distance. 
Inputs:  Yield  (KT) 

HOB  (ft) 

CEP  (ft) 

PEH  (ft) 

Troop  disposition  (see  subsection  E) 

Vulnerability  condition  (see  subsection  li) 
Acceptable  rislc  (see  subsection  E) 

Desired  Assurance  Level 

Program  5.1:  Probability  of  not  exceeding  the  acceptable 
weapons  effects. 

Inputs :  CEP  (ft) 

Of  f  set  (ft) 

Radius  of  safety  (ft) 

Troop  disposition  (see  subsection  E) 

C .  Limi 

Yield:  0.01  KT  <  Y  30  MT 
HOD:  HOB  >  0  ft 

CEP:  CEP  -  0  ft 

PEH :  PEH  ^  0  f t 

Troop  disposition:  1 ,  2 ,  3 ,  or  4  \ 

Vu  Inc^rabi  1  i  ty  condition:  ),  2,  or  3  Bee  subsi'Ct  ion  i: 

Ac.'ccptable  risk:  1  ,  2 ,  or  3  j 

Desired  assur  :  0.6  1’  •  0.99 

D.  Data  Storage  Locations,  Printer  A 1  [ihanumor  i  cs 

'['he  user  can  find  tlio  follcjwimj  infcirmation  s.toied  in  t  1k' 
i  nd  i  . :  I  t ' 'd  r  <  ■'  i  i  s  t  e  r  s  (  H  )  : 


1 


Variables 

Regi sters 

Alphanumer i cs 

Yield  (KT) 

RIO 

Y 

HOB  (ft) 

Rll 

H 

r"-' 

R12 

C 

of  f  set  (  ft) 

R19 

X 

Radius  of  Safety  (ft) 

R13 

RS 

I'ldi  (tt) 

R14 

PH 

■'’I  ( )o;i  d  1  spos  i  t  i  on 

R15 

D 

\'u  1  III.'  t  ab  1  1  i  ty 

R16 

V 

Acceptab  le  r i nk 

R17 

R 

Desired  assurance 

R18 

P 

Minimum  safe  distance 

only 

in  display 

M 

Probability  of  not 
exceeding  acceptable 

only 

in  display 

P 

weapons  effects 

E .  Troop  Disposition,  Vulnerability  Condition , and  Degree 
of  Risk  Categories  and  Associated  Index  Numbers 


1.  Troop  dispositions:  I nd ices 

Linear  1 

Quarter-circular  2 

Semicircular  3 

Circular  4 

2.  Vulnerability  conditions: 

Unwarned  exposed  1 

Warned  exposed  2 

Warned  protected  3 

3.  Risk  categories 

Negligible  1 

Moderate  2 

Itnergency  3 

F.  Additional  Iniormation 


Further  iiui  of  Micsc  icrms  <-,in  be  found  in  Al’-'.'iiO, 

Part  If  I,  pages  G4  and  63.  I'ressinif  R/d  wil]  iniliafe  t  iie 
previously  keyed-in  fyi^e  of  calculation  t-von  if  the  iiguits 
are  chan<jed. 


j 


H  3 


EXAMPLE  5.0 


Given  the  following  information,  calculate  the  radius 
safety  and  minimum  safe  distance. 


Yield 

=  10  KT 

troop  disposition 

=  linear 

HOB 

=  1000  ft 

vulnerability  =  unwarned  exposed 

CEP 

=  500  ft 

acceptable  risk  = 

negl i gib] e 

PEH 

=  100  ft 

desired  assurance 

=  9  91 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

Turn  off  -  then  on 

2nd 

Pgm  01 

0 

Select  program  01 

0. 

Enter  yield  (KT) 

10 

A 

10. 

Enter  HOB  (ft) 

1000 

1000. 

Enter  CEP  (ft) 

500 

C 

500. 

Enter  PEH  (ft) 

100 

E 

100. 

Enter  troop  disposition 

1 

2nd  A' 

1. 

Enter  vulnerability  condition 

1 

2nd  B’ 

1. 

Enter  acceptable  risk 

1 

2nd  C 

1 . 

Enter  desired  assurance 

.99 

0.99 

Calculate  radius  of  safety  and 
minimum  safe  distance 

5.0 

2nd  E' 

16900. 

EXAMPLE  #5.1: 


Given  the  following  information,  calculate  the  probability 
of  not  exceeding  the  acceptable  weapons  effects. 


distance  from  troops  to  desired 
ground  zera,  i.e.,  offset 

radius  of  safety 

circular  error  probable  (CEP) 

troop  disposition 


8200  ft 
7000  ft 
500  ft 

sein i  c  i  r  cul  a  r 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

2 

Turn  off,  then  on 

Select  program  01 

2nd 

Fgiii  01 

0 

0. 

3 

Enter  CEP  (ft) 

500 

C 

500. 

4 

Enter  offset  (ft) 

8200 

L) 

8200. 

5 

Enter  radius  of  safety  (ft) 

7000 

0 

7000. 

NOTE:  Offset  and  radius  of 
safety  must  always  bo  entered  in 
the  above  order.  If  one  is  to  be 
changed,  both  values  must  be 
re-entered . 

6 

Enter  troop  disposition  (sec 
subsection  E) 

2 

2nd  A' 

2. 

1 

/ 

Calculate  probability  of  not  ex¬ 
ceeding  acceptable  weapons  effects 

5.1 

Pnd  [  ' 

1 

5»u. 

0. MU  •; 

0  .  M'.  ■ 

I 


Section  ")\>-.  i'roqrams  5.2  and  5.3 


Fallout-Safe  Hcicjht  of  Burst  CalcuKitions 


SOURCE  OF  DATA: 

Dt-'fense  I nto  1 1  i<jcnco  Agency,  Physical  Vulnerability  liaiKiboek 

Nuclear  VvCc'gJons _ (_U)  ,  AP- 5  5  0- 1- 2  -  6  0- I  NT  ,  Juno  1,  1969,  Part  I 

S  e  c  1 1  o  n  C  . 

DKSCiU  PTION : 

A .  0 1  c  t'.  i_y  o 

The  objective  of  this  set  of  two  i;rograms  is  to  ,i; 

the  minimum  fallout-safe  lieigiit  of  burst,  or  a  1  t(ji  na  t  i ',<  ■  !  y  t 
[.-robabi  1  i  ty  that  a  selected  HOB  w'i  1  1  result  in  an  <ic*,  ii  :■ 

whiich  is  f  a  1 1  out- : 'a  fe  .  The  calculation  {(jr‘  minimum  laii 
;'.ate  HOB  is  b^isc'd  uy.’on  fireball  :-;i'/e  .ii'id  the'  mu-',  r  t  e  i  :0  y  ; 

ac.'tual  HOB  (i.o.,  PFH)  due  to  delivery  ."■•.ysLem  el  ;a  i  U' ■  t  ■  ■ ;  i  ra 

t  herefor  e,  t.he  u;-;er  must  s(>eci  fy  LIk-  ass.ur.uiee  lev'-l  In/ 

'lo  .f  i  nd  the  miiiimum  act.u.jl  H(Vp,  v.'lii(;h  v.i  !1  tal  lo'a;  -e.O 

urogram  9.2  s.hcntld  Ije  run  witJi  I’HH  --  0. 

!'i  .  In.  ut  s-(.jut  :  'll*  . 

l’ro)ram  a  .  2  :  Fa  1  1 1  .ut- f.a  ft  ■■  lieiglit  ot  hurrt. 

Incuts.:  Yield  { KT) 

I’FH  (It) 

IF  s,  i  1  ( 'd  ,1  s. s.u  t  ,1  n t:e 

I '  t  ( j  ;  I  a  :tl  i  .  1  :  I '  r  •  d  . .  i  b  i  1  i  t  y  of  .  i '  ■  h  l  e  s'  ;  n  :  a  '  i  i  1  o.  u  t  -  :  a  :  •  ■  Hop, 

I  ii:  u  t  S'  :  Y  1  o  1  d  i  FT  ) 

PFH  (It) 

11  )H  (ft) 

I ,  I  SI  i  t  s, 

Y  1  .  1  d  :  0 . 0 1 KT  ^  Y  •  i UOT 


D.  Data  Storage  Locations,  Printer  A1  phantunor ics 

The  user  can  find  the  following  information  .stored  in  the 
indicated  regi.sters  ( R)  : 

Variables  Registers  Alphanuiner  i  cs 

Yield  (KT)  RIO  Y 

HOB  (ft)  Kll  H 

PKH  (ft)  R14  PH 

Desired  assurance  R18  P 

Fallout-safe  HOB  only  in  display  H 

Probability  that  . 

HOB  is  fallout-safe  display  1 

E .  S pccial  Features 

Pressing  R/S  will  initiate  the  jireviously  keyed-in  tyjie 
of  calculation  even  if  the  inputs  are  changed. 


EXAMPLE  5.2,  5.3 

Given  the  following  information,  calculate  the  fallout-safe 
heights  of  burst  corresponding  to  the  two  desired  assuiances; 
then  invert  the  calculation  using  the  HOB  calculated  for  the 
second  given  desired  assurance. 


Yield 


10  KT 


PEH  =  100  ft 

Desired  assurances  =  99%,  75% 


INSTRUCTIONS 

Turn  off  -  then  on 
Select  program  01 
Enter  iel  d  ( KT) 

Enter  PEH  (ft) 

Enter  first  desired  assurance 
Calculate  fallout-safe  HOB  (ft) 


INPUT  KEYS 


2nd 
Pgm  01 
A 


Enter  2nd  desired  assurance 
Calculate  fallout-safe  HOB  (ft) 


Enter  HOB  obtained  in  last  calc. 

Calc.  prnbal)i  1  i  ty  of  a  fallout- 
safe  HOB 


2nd  D' 
2nd  E’ 


,75  2nd  O' 


2nd  E  ' 


DISPLAY 


PRINT 


5.2 
10. 
100. 
0.9  9 
651  . 


10 .  Y 
100.  nil 
n  .  7  5  P 


0.701  [ 


EQUATIONS 


Dcf ini tions 

Y  =  Y  i  e  1  d 

HOB  =  Height  of  burst 
CEP  =  Circular  error  probable 
RS  =  Radius  of  safety 
X  =  Offset 

PEH  =  Probable  error  in  height 

V  =  Vulnerability  s\ate 
R  =  Acceptable  risk 

P  =  Desired  assurance  (probability) 

RS  =  Slant  range  radius  of  safety 
b  K 

B  =  Buffer  distance 

MSD  =  Minimum  safe  distance 


Calculate  RS  and  MSD; 


A  slant  range  radius  of  safety  is  calculated  as  a  function  of 
Y,  RSgj^(Y),  and  the  actual  (ground  range)  radius  of  safety  is 
calculated  as: 


RS 


HOB ' 


1/^ 


(1) 


and  the  minimum  safe  distance  is  calculated  as: 


MSD  =  RS  +  B  (2) 

where  B  and  HOB'  are  functions  of  the  error  distributions: 


HOB'  =  HOB  r  -  1^ 


(  5) 


B  =  CEP 


b 


(  4  i 


where  a  and  b  are  functions  of  troop  disposition  'I'al'li'  Y.i)  . 


Calculation  of  RS  : 

b  K 


M 

f-; 


RS  . ,  (  necj  1  i  q  i  b  1  f'  risk) 

>  ->  I**, 

[e-  (moderate  risk) 

S  R 

RS,,  (em(’r<jency  risk) 

!■)  R 


9  1 


For  VUL  =  1 


N  - 


M  = 


For  VUL  =  2, 


M  = 


For  VUL  =  3, 


N  = 


)  7000 (Y-. 005)  ■ ^  " 
I  6250  (Y+.  3) 

I  N/1 . 22 
I  N/1. 2 

I  M/1. 35 
I  M/ 1.27 

(  7000{Y-.005) 

I  5000  (Y+l . 5)  • 

I  N/1. 22 

I  N/1. 2 

(  M/1. 3  5 
(  M/1. 27 

(  8576y^ 

7  332  (Y-.  05)  • 

'  3308Y' 

/  N/1 . 4 

)  6069  (Y-. 075)  • 

34 

2]  79Y 
N/1  .  5 


for 

.  01 

V 

1 

for 

1  ■' 

V/ 

i 

- 

10'" 

for 

.  01 

Y 

<  1 

for 

1  r 

Y 

- 

10^ 

for 

.  01 

Y 

■■  1 

f  or 

1  ■' 

- 

lo’'" 

for 

.  01 

I 

1 

for 

1 

c 

_ 

lo'^ 

for 

.01 

'i' 

1 

for 

1 

'i 

1  o'^ 

for 

.01 

V 

1 

for 

1 

V 

lo' 

for 

.01  _  Y 

1 

f  or 

•  ^ 

1(3  r 

10  _ 

for 

.  0 1  _  V 

■  .  1 

for 

.1  _  V  ■ : 

9  0 

for 

9  0  _  V 

3  0 ' ' 

for 

3  00  _  V 

1 

for 

.01  v  Y 

.  1 

f  or 

.1  _  V  ■ 

3  0  0 

1  o  r 

500  ••  Y 

■  10 

Calculation  of  nrobabi  !  ;  •  /  '  '  ■  '  <  c*  i  tv.i  aco.'i  talMc-  w 

i?  f  f  o  c  t  s  : 

B  =  X  -  RS ,  and 

B  -  |]  f  cxc  .  i  ( !„■  -  B-i'i;;':  i  \  wiv'r.  a  arid  I)  a  )a  ■  a  i  \-i  ■ 


in  t  ,1  b  1  I '  5  .  1 


1 - - — " 

^^D-A09S  830  HORIZONS  TECHNOLOGY  INC  SAN  OlEGO  CA 

NUCLEAR  WEAPONS  TARGETING#  AP-550*  CROM  Al* 
JUN  79 

UNCLASSIFIED  HT1-R-79*125  0NA-5277H 

F/ 

REFERENCE  MANUAL.! 
ONA001>7a»C«‘02 

h 

1  »35_i 

18/3 

1 

2^.  3 

■ 

1 

1 

1 

— 

J 

1 

1 

1 

1 

p  1 

1 

' 

1 

rij 

L 

r  1 

IBHI 

■III  1  _ _ i. 

■ _ 

r 


Calculation  of  the  minimum  HOB  which  has  a  given  probability  of 
being  fallout-safe; 


HOB  =  lOOY*'^ 

Calculation  of  the  probability  that  a 


Disposition  a 

1  2.6 

2  2.6 

3  3 

4  3 


Table  5. 


(8) 

given  HOB  is  fallout-safe; 

1 


.2 

.5 

.8 

1 
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PARTITION 


AUTOMATIC 


LIBRARY  MOOULE 


CROM  A-1 
(Program  5) 


OATA  REGISTERS  FOR  EXAMPLE 
A  REG. 


FLAG 

COMMENTS 

07 

Marks  exceeded 

limit 

COMMENTS 


LABELS 


_ COMMENTS 

scratch 

indirect  register  RCL 
(Pgm  9) 


Y 

HOB 

CEP 

RS 

PEH 

Troop  disposition 
Vulnerability  state 
Risk 

Assurance  % 

Offset 


PROGRAM  MEMORY  (LIST) 


PROGRAM  MEMORY  (LIST) 


STEP 

CODE 

KEY 

188 

05 

189 

65 

190 

('  b 

LBL 

191 

97 

DS2 

192 

CLR 

193 

RCL 

194 

^  : 

17 

195 

:kit 

196 

01 

1 

197 

6  7 

EQ 

1  98 

9 

Q  ri  I  1 

H  i»  V 

199 

HIR 

If  Risk  =  1,  no  cor¬ 
rection 
(negligible) 


J  If  Risk  =  2 
I  (moderate) 

Case  for  Risk  =  3 : 
Label  ADV 
RSgj^  in  ROl 
1  15 

in  t  register 
HOB  +  ... 

(Eq.  3) 

RSco 


RS  ,  Ground  range 
(Eq.  1) 


STEP 

CODE 

KEY 

c; 

05 

5 

236 

03 

•Z‘ 

2  7 

Ub 

6 

2  3  c* 

HDV 

239 

•  j  -  j 

P  T 

r,  4  1 

240 

36 

PGM 

241 

09 

09 

242 

1 2 

B 

243 

42 

STD 

244 

1 3 

13 

245 

43 

RCL 

246 

■i  C- 

i  J 

15 

247 

71 

SBR 

248 

03 

03 

24y 

92 

9  2 

250 

2 

K 1  T 

9  R  1 

R  R 

.j- 

43 

RCL 

253 

i  2 

1  2 

“i  C*  A 
lU  •-*  ‘t 

95 

= 

25^1 

•..*  P  T 

4  ! 

256 

65 

257 

43 

RCL 

259 

12 

259 

85 

+ 

260 

4  z* 

RCL 

261 

I  -Z* 

13 

262 

r  5 

- 

2  6  3 

■  ^  .4. 

U  z* 

i*!  n 

n 

265 

71 

SBR 

263 

•Z-  iZ 

XIT 

269 

o  ~7  n 

4  J 

RCL 

^  “j 

•z.  1  u 

"i  ”?  ^ 

1  i 

P 

X I  T 

2  r  2 

9  9 

RTN 

^  i'  Z' 

7  A 

LBL 

274 

14 

D 

275 

15 

E 

276 

01 

1 

^  «*  i 

01 

1 

•i  i"i 

iZ.  i 

4  2 

STD 

Print  RS 


RS 

Disposition 

Get  coefficient  for  MSD 


"M" 

Print  MSD 


MSD  in  display 


Label  D.  Calculation 
5.3 

Print  Y,  PEH 


Print  H 


Print  RS 


9 


PROGRAM  MEMORY  (LIST) 


STEP 

CODE 

KEY 

•t‘ 

10 

E* 

'I*  i 

IFF 

£84 

07 

07 

kl  C* 

81 

RST 

£  8  b 

i 

i. 

SBR 

k—  '  ! 

04 

04 

^  b 

£4 

£4 

2  H  9 

RCL 

£90 

1  i 

1  1 

2  9  i 

61 

GTD 

?  H 

11 

u:-: 

2  9  3 

74 

74 

£94 

••• 

LBL 

£95 

1  •  “« 

c 

£  9  6 

15 

E 

£97 

“7  i 

S  B  R 

2  9  'S 

04 

04 

'?  9  9 

08 

08 

300 

E'7 

IFF 

301 

0? 

07 

303 

c=  ^ 

1 

RST 

303 

71 

SBR 

304 

04 

04 

305 

£4 

£4 

308 

02 

2 

3  f 

308 

L'  -jJ 

:^1 

SBR 

309 

06 

06 

3 1 0 

00 

00 

311 

PGM 

31£ 

09 

09 

313 

B 

314 

9  8 

fiDV 

o  1 5 

92 

RTH 

316 

7  6 

LBL 

^  "7 

i 

318 

3 1 9 
3£0 

O  1 

w  i. 

12 

B 

44 

SUM 

0£ 

i 

57 

05 

■=: 

.'j  ^ 

1  0 

E' 

3£4 

A  “i 

-I' 

RCL 

■> 

1  9 

19 

3  £  t> 

71  T 

.  ^  I 

65 

9  6 

• 

COMMENTS 


STEP  CODE  key 


COMMENTS 


3  2  9 

U6 

6 

330 

85 

+ 

j 

/  Return  on  error 

331 

48 

1  ■ -* 

RCL 

13 

+ 

) 

888 

t-t  C 

I  « .  1 

lOOY-^;  ^  in  t  reg. 

334 

335 

09 

52 

9 

EE 

03 

9 

9  7 

65 

lOOY*^  -  HOB 

.“i 

04 

4 

Print  P  (Eq.  9) 

3  3  9 
340 

04 

3  b 

4 

PGM 

Label  C.  Calculation 

341 

U9 

U 

5.2 

34L 

1  i 

fl 

Print  Y,  PEH 

343 

08 

-I' 

344 

05 

.J 

Print  P 

345 

03 

3 

346 

06 

b 

) 

347 

10 

E' 

}  Return  on  error 

348 

69 

DP 

1 

349 

8  8 

8  8 

350 

01 

1 

100Y'^-7^  in  t  reg. 

351 

9  9 

06 

s 

7 1  T 

9  c;  o 

04 

4 

"H" 

354 

9  6 

PGM 

355 

03 

09 

(Eq.  8) 

356 

16 

fi* 

357 

O  i 

IFF 

9  ^  C‘ 

07 

07 

8S8 

81 
“7  <1 

P8T 

Print  distance 

360 

361 

SBR 

03 

(FSH  or  MSD) 

!  i 

0  3 

( 

3  b  2 

3  6  5 

97 

9  2 

Label  B.  Calculation 

5.1 

\ 

3 1- 

365 

RCL 

) 

3  b  i 

1 9 

19 

( 

36 1' 

yc 

- 

"C"  /  Print  CEP 

3  6  8 

H- 

RCL 

1 

369 

1  ‘t' 

13 

) 

370 

54 

j 

/ 

X  \ 

371 

55 

- 

1 

•'  %Z. 

4  j! 

RCL 

CEPJ 

C  1  -I' 

i  2 

1£ 

374 

95 

= 

I 

375 

65 

RS 


Lower  limit 
.9  CEP  +  RS 


Print  offset 
(cont. ) 


Print  radius 
of  safety 


Print  disposition 


Return  on  error 


(X 

R5)/CEP 
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PROGRAM  MEMORY  (LIST) 


STEP  CODE 


378 

!•  1'  -■ 

95 

•Z'  f  C‘ 

: 7  4 

300 

381 

85 

0  3 

384 

i_i  .J 

01 

-!  '-1 

95 

3  8  h 

-1 5 

*1 C;  7 

99 

•”i  i“« »“« 

•Z’  8 

: -1 1-1 9 

09 

9  90 

1  z* 

;"i  9  1 

9 

3  9  2 

85 

:"i  9 

02 

394 

9  -3 

395 

Li  K 

2'  9  S 

•Z'  3. 

397 

04 

9  !-i 

'95 

399 

42 

400 

01 

401 

01 

402 

0  0 

403 

75 

404 

53 

405 

0  3 

408 

8  3 

407 

01 

408 

.■<  "1 

‘■f  -Z* 

409 

1  8 

410 

•Z'  ill 

411 

9  ?, 

412 

08 

413 

rt  cj 

414 

9  9 

415 

0  9 

418 

09 

417 

85 

418 

Cl  3 

419 

0  3 

420 

3  8 

421 

09 

422 

1  i 

KEY 


COMMENTS 


INV 

LHK 

+ 


y.n 

1 

l/X 

HDV 

PGM 

09 

E 

RTH 


18 
XI  T 


+ 


PGM 

09 

H 


15 


PEH 


for  calc 


.  5.3) 


P  (Eq.  7) 
Print  "P" 


z 

\Dis position 

h. 

1  Used  for  retrieval 

X 1  T 

/  of  coefficients 

4 

1  for  4  risk 

zz 

(  categories  - 

STD 

\  See  note  on 

01 

/  coefficient 

1 

1  retrieval 

0 

1  For 

- 

1  Disp:  ROl: 

I  1  004 

■Z' 

/  2  008 

IjO* 

/  3  012 

01 

4  016 

H  U  L 

P  Print  P 

Print  "P" 
Low 


High 


STEP 

CODE 

KEY 

423 

92 

RTH 

424 

01 

1 

425 

9;-; 

428 

0  1 

1 

427 

05 

5 

428 

55 

4- 

429 

43 

RCL 

430 

14 

14 

431 

95 

= 

432 

-Z'  cZ 

XIT 

433 

1  y 

13  ■ 

434 

75 

- 

435 

Qv 

RTN 

438 

43 

RCL 

437 

1  b 

18 

438 

•Z*  ill 

XIT 

439 

02 

2 

440 

7 

EQ 

441 

04 

04 

442 

59 

59 

443 

04 

4 

444 

00 

0 

445 

3  2 

X 1  T 

448 

08 

b 

447 

02 

448 

05 

5 

449 

00 

0 

450 

85 

451 

03 

•"i 

452 

00 

0 

453 

00 

ij 

454 

94 

+  /  - 

455 

1 8 

R  • 

458 

81 

GTD 

457 

04 

04 

458 

7 

459 

0 :3 

480 

08 

8 

481 

•z'  2 

XI  T 

482 

05 

C 

•J 

483 

C  ■“ 
ill 

EE 

4  8' 4 

03 

485 

85 

488 

01 

1 

487 

05 

Cj 

488 

00 

0 

489 

00 

0 

COMMENTS 


'Ji. 

PEH 

loov'^ 


Case  for  VUL?«3,  Y  >  1 


If  VUL=2 

Case  for  VUL=1, 
Y  >  1 


6250(Y+.3)-'^ 


Case  for  VUL  =  2,  Y  >  1 


99 


PROGRAM  MEMORY  (LIST) 

STEP  CODE  KEY 

COMMENTS  ?TEP  CODE  KEY 

COMMENTS 

470 

94  +/- 

(1.5+Y)-^^  X  5000 

471 

472 

16  R  ■ 

I  I  p  P 

473 

00  0 

1  Corrections  to 

4  i'  4 
475 

85  + 

\  negligible  risk,  for 

i_i  ^  V 

(  moderate  and  emer- 

47b 

477 

65 

1  gency  risk 

4  7o 

61  GTD 

479 

97  DSZ 

4  SO 

04  4 

Case  for  VUL=3 

481 

95  = 

482 

22  IHV 

SlogY  +  4 ,  t  reg  =  3 

483 

77  GE 

484 

485 

05  05 

If  Y  <  .1 

486 

Jt  — 

487 

03  3 

488 

52  EE 

489 

0  >: 

490 

28  LDG 

491 

95  = 

492 

77  GE 

493 

05  05 

If  Y  >  300 

494 

7*  *7 

■ 

495 

85  + 

496 

01  1 

otherwise  .1  <  Y  <  300 

497 

75 

498 

0  Pi 

4 

*3  RCL 

5  0  0 

17  17 

501 

67  eQ 

502 

05  05 

If  RISK  =  3 

5ri;-! 

5  4  =;  9 

504 

85  + 

505 

01  1 

506 

54  > 

507 

67  EQ 

508 

Li  5  0  5 

If  RISK  =  2 

5U9 

C«  fcl  «I: 

510 

0  fi  n 

511 

95  = 

512 

7  7  GE 

5  1 :3 

05  05 

514 

47  47 

If  Y  >  30 

515 

01  1 

Start  of  Case  for 

516 

01  1 

VUL=3,  RISK=1 

32  XIT  .1  <  Y  <  30 


it.  H'  (Y-.05)'^^ 
61  GTD 


Case  for  VUL=3,  RISK=2 


If  "  ,  90 

Case  for  VUL=3,  RISK=2, 
.1  <  Y  <  90 


6069(Y-.075)' 


Ca  31 
VUL=3;  R 
30  <  Y  < 


Case  for  VUL=3;  RISK=2; 
90  <  Y  <  300 


2179Y- 


% 


100 


PROGRAM  MEMORY  (LIST) 


STEP  COOE  KEY 


COMMENTS 


STEP  COOE  KEY 


564 

0  8 

565 

04 

4 

566 

01 

5£7 

65 

f=;hK 

i  “i 

=; 

569 

U5 

cr 

570 

1  I-, 

H  ■ 

571 

hi  \ 

GTD 

c;  “7  •  j 

S 

HTiV 

1  9 

D  ‘ 

574 

il5 

CJ 

■577 

1  i 

576 

577 

04 

4 

=174 

L=  i' 

580 

6 1 

GTD 

58  1 

'•4 

c  r-.  •-! 

.  ill.' 

c;  0  "j 

fi !'! 

-! 

584 

-1  -I 

X 1  T 

58=; 

C; 

586 

05 

587 

0  7 

7 

588 

j 

H. 

589 

65 

590 

f!  0 

|-| 

591 

1 

H  ■ 

S':-' 

04 

d 

5  8 :8 

1  i  1  1 

i  1 

594 

•-!  ^ 

4- 

595 

03 

“1 

596 

fi  0 

597 

65 

59S 

J-.  ^ 

r-  T 
b  Li 

599 

L-  -Z' d 

b  0 

.  "i  ^ 

1'': 

60  1 

1 

6  0  2 

0  ]= 

CT  "t 

i; 

604 

^3 

RCL 

6  0  5 

'  C' 

18 

6  0  6 

-I  c 

1  ■'  ;''i 

6  0  7 

- 

603 

4 

■J  i 

i 

609 

54 

6  1 0 

66 

LHX 

4341x{Y-.055) 


.15 


Case  fnr  VUL=3;  Y  ■  3odl 
3308Y-34 

I  Corrections  to  negli- 
r‘  -le  risk  for  mod- 
)  e  .te  and  emergency 
risk  categories. 


Case  for  \/UL=3;  Y  '  .1 


8576Y 


.2 


Corrections  to 
negligible  risk 
for  moderate  and 
emergency  categories 


CEP  „  PEH 

-  or  .  .  !-■ 

a  1.15 


611 

61^ 


92  RTH 


CEP 

a 


in 


COMMENTS 


Section  6:  Programs  6.0  -  6.3 


Probability  of  Damage  Utilizing 
Equivalent  Target  Areas 


SOURCE  OF  DATA: 

Defense  Intelligence  Agency,  Physical  Vulnerability  Handbook-Nucle,  r 
Weapons  (U) ,  AP-550-1-2-69-INT,  1  June  1969,  Ch.  4,  pages  28,  30-33,  37. 

DESCRIPTION: 

A.  Objective 

This  program  calculates  the  probability  of  damage  to  rectangular 
targets  using  the  Equivalent  Target  Area  (ETA)  method.  The  ETA  is  an 
area  such  that  the  probability  of  placing  the  ground  zero  position  within 
the  area  is  equal  to  the  probability  of  doing  the  desired  damage  to  the 
target.  Given  the  target  dimensions,  the  circular  error  probable,  CEP, 
and  the  weapon  radii  for  both  dimensions,  the  program  will  calculate 
the  ETA  dimensions  and  the  probability  of  doing  the  desired  damage. 

The  program  sets  offers  four  calculations.  Program  6.0  uses 
the  VN  system  to  calculate  the  length  and  width  weapon  radii  for 
P-type  targets,  those  most  sensitive  to  shock  overpressure.  Pro¬ 
gram  6.1  does  the  same  for  Q-type  targets,  those  most  sensitive 
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to  dynamic  pressure.  Program  6.2  calculates  the  crater  radius 
and  then  uses  it  to  calculate  the  weapon  •-..aii.  For  cases  when 
the  weapon  radii  are  known,  i-rogram  6.3  allows  the  user  to  enter 
these  values  proceed  with  the  probability  of  damage  calcula¬ 

tions.  Once  the  weapon  radii  are  obtained,  the  program  uses  the 
same  calculation  for  the  probabrlity  of  damage  in  all  four 
routines . 

B.  Inputs -Outputs 

The  CEP,  target  length,  target  width  and  aim  point  (1  for 
center  of  target,  2  for  longer  dimension  edge)  are  entered  in 
all  four  calculations.  The  other  entries  for  each  program  are: 

6.0:  Yield,  HOB,  Length  VN ,  Length  k-factor,  Width  VN , 

Width  k-factor. 

6.1:  Same  as  6.0 

6.2:  Yield,  HOB,  Medium  (1  =  dry  rock,  2  =  wet  rock, 

3  =  dry  soil,  4  =  wet  soil).  Length  Crater  Radius 
Multiplier,  Width  Crater  Radius  Multiplier. 

6.3:  Length  Weapon  Radius,  Width  Weapon  Radius. 

A  negative  HOB  is  interpreted  as  that  distance  below  the  ground. 
Programs  6.0,  6.1  and  6.2  calculate  the  weapon  radii  and  all 
four  programs  display  the  probability  of  damage. 

C .  Limi ts 

The  following  limits  are  the  same  for  all  the  proa  rams: 

Yield:  0.1  KT  <  Y  <  30  MT 

Length:  L  >  Width 

Width:  W  >  5  ft. 

Aimpoint:  AP  =  1  or  2 

Program  6 . 0 

VN :  0  <  AJVN  <  54 

k-factor:  0  <  k  <  9 

HOB:  0  <  HOB  <  2308  Y^^^  exp  (-AJVN/15)  ft. 

AJVN  =  Adjusted  Vulnerability  Number 
(for  width  and  length) 
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Program  6 . 1 

VN:  0  <  AJVN  <  34 

k-factor:  0  <  k  <  9 

HOB:  0  <  HOE  <  HOB  ft. 

rnd.x 

where  HOB  is  the  minimum  of; 
max 

900  ft. 

2308  Y^-^^  exp(-AJVN/15)  ft. 

Program  6 . 2 

HOB:  -200(Y)®'^  <  HOB  <  20(Y)°'^  ft. 

Medium  no.:  M=l,2,3,4 

Crater  Radius  Mult.  :  1  <  Length  CRM  3 

1  i  Width  CRM  1  3 


D .  Data  Storage  Locations,  Printer  Alphanumerics 


The  user  can  find  the  following  information  stored  in  the 
indicated  registers  (R) . 


Variable  Registers  Alphanumerics 


Yield 

RIO 

Y 

HOB 

Rll 

H 

CEP 

R15 

C 

Length 

R16 

L 

Width 

R17 

W 

Aim  Point 

R18 

A 

Width  Weapon  Radius 

R27 

WW 

Length  Weapon  Radius 

R29 

LW 

I 


105 


(continued) 


Variable 


Registers 


Alphanumer ics 


For  Programs  6.0  and  6.1 


Length  k-factor 

R13 

LK 

Width  k-factor 

R14 

WK 

Length  VN 

R19 

LV 

Width  VN 

R20 

WV 

For  Program  6.2 

Medium 

R12 

M 

Length  CRM 

R13 

LM 

Width  CRf^ 

R14 

WM 

For  Program  6 . 3 

Length  Weapon  Radius 

R13 

LW 

Width  Weapon  Radius 

R14 

W\'J 
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EXAMPLE  6.0,  6.1  (P  and  Q  Target  Options) 


Calculate  the  probability  of  damage  to  a  500-  by  50-ft 
bridge  from  the  dynamic  pressure  (Q-type  target)  effect  of 
a  0.5  KT  weapon  which  bursts  100  ft.  above  the  bridge.  Assume 

the  relevant  quantities  are: 


CEP  =  500  ft 
Length  VN  =  18 
Length  )c  =  9 


Aim  Point  =  Target  Center 
Width  VN  =  14 
Width  k  =  9 


1 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off  -  then  on 

2nd 
Pgm  01 

0 

2 

Select  program  01 

0. 

3 

Enter  the  target  length,  L(ft) 

600 

2nd  B‘ 

500. 

4 

Enter  the  target  width,  W(ft) 

50 

2nd  C 

50. 

5 

Enter  the  weapon  yield,  Y(KT) 

.5 

A 

0.5 

6 

Enter  the  HOB(ft) 

100 

B 

100. 

7 

Enter  the  CEP(ft) 

500 

2nd  A' 

500. 

8 

Enter  the  aim  point 
(1  =  target  center. 

1 

2nd  D' 

1 . 

2  =  edge  of  longer  dimension) 

9 

Enter  the  length  VN,  LV 

18 

D 

18. 

10 

Enter  the  length  k  factor,  LK 

9 

D 

9. 

11 

Enter  the  width  VN,  WV 

14 

E 

14. 

12 

Enter  the  width  k  factor,  WK 

9 

E 

9. 

13 

Calculate  the  probability 

6.1 

2nd  E’ 

6.1 

of  damage  to  the  bridge  from 
dynamic  pressure. 

0.  5 

18. 

9. 

I 

LV 

LK 

Note:  If  this  were  a  P-type 

14. 

WV 

target,  step  13  "Input  Data" 

9. 

WK 

would  be  6.0  and  the  resulting 
probability  of  damage  (P)  would 

100. 

H 

be  0.347. 

375. 

LW 

505. 

WW 

500. 

C 

500. 

L 

50. 

W 

1. 

A 

0.651 

0.651 

P 
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EXAMPLE  6.2,  6.3  (Cratering  and  WR  Input  Options) 


A  solid  arch  concrete  bridge  1000  ft  long  and  70  ft  wide  i  .s 
to  be  attacked  by  a  10-KT  weapon  which  will  burst  on  contact  with 
the  bridge.  The  weapon, which  is  aimed  towards  the  center  of  the 
target,  has  a  CEP  of  500  ft.  Assuming  the  length  and  width  crater 
radius  multipliers  are  1.25  and  1.5  respectively,  calculate  t)ie 
probability  of  damage  to  the  target.  See  AP-550,  tables  1-5,  I-G, 
1-7,  and  I-IO  for  source  of  crater  radius  multipliers. 

Change  the  length  and  width  weapon  radii  to  350  ft  and 
300  ft  and  recalculate  the  probability  of  damage  to  the  bridge. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

■ 

Turn  off  -  then  on 

2nd 

Pgm  01 

0 

B 

Select  program  01 . 

0. 

B 

Enter  the  weapon  yield,  Y(KT) 

10 

A 

10. 

B 

Enter  the  HOB(ft) 

0 

B 

0. 

1 

Enter  the  medium  (1  =  dry  rock, 

2  =  wet  rock,  3  =  dry  soil, 

4  =  wet  soil) 

1 

C 

1. 

B 

Enter  the  target  length,  L(ft) 

1000 

2nd  B' 

1000. 

7 

Enter  the  target  width,  W(ft) 

70 

2nd  C 

70. 

Enter  the  weapon  CEP(ft) 

500 

2nd  A' 

500. 

Enter  the  aim  point 
(A  =  1  center  of  target, 

A  =  2  at  longest  dimension  edge) 

1 

2nd  D’ 

1 . 

10 

Enter  the  length  multiplier,  Lfi 

1.^5 

D 

1.25 

11 

Enter  the  width  multiplier,  WM 

1.5 

E 

1.5 

12 

Calculate  the  probability 

6.2 

2nd  E’ 

6.2 

of  damage  to  the  bridge  utilizing 

10. 

Y 

the  crater  radius  method. 

0. 

H 

1. 

M 

1.25 

LM 

1.5 

Wil 

142. 

LW 

171. 

WW 

500. 

C 

1000. 

L 

70. 

W 

1. 

A 

0.298 

0.298 

P 

LOS 


STEP 

13 

14 

15 


INSTRUCTIONS 


INPUT  KEYS  DISPLAY 


Enter  the  new  length  weapon 
radius,  LW(ft) 

Enter  the  new  width  weapon 
radius,  WW(ft) 

Calculate  the  probability  of 
danwge  to  the  bridge  from  a 
weapon  that  [iroduced  these 
weapon  radii. 


350  D 


6.3  2nd  E' 


0.5  36 


0.536 


rfH!7''^’I0NS  (Note  all  distances  in  feet) 


Def ini t ions 


CP 

LN 

'C' 


RL 

R'.' 

I,'.’ 


CRP 


LCfT' 

'JCFP 


a 

a 


L 


L.PTA 

W'’TA 


Crater  Radius 

Crater  Radius  Multiplier  for  Lenqth 
Crater  Radius  “’ultiplier  for  tJidth 
Radius  of  Disruption  for  L.encjth 
Radius  of  Disruption  for  '.Jidth 
Dontjth  'Weapon  Radius 
'Cidth  f'eapon  Radius 
Circular  ':rror  Probable 

Ad -justed  Circular  Frror  Probable  for  Lemith 
Adjusted  Circular  .Prror  Probable  for  '.'idth 
Carqet  Lenqth 
'"arqet  '.-Udth 

Lenqth  Fquivalent  Tarqet  Area 
’.'idth  Fquivalent  'Tarqet  Area 

Aim  Point  (l=Conter  of  Tarqet,  2=^Fdqe  of  Tarqet)  (dejz) 
Probability  of  Damaqe 

and  are  intermediate  calculation  values 


■'or  Calculation  6.2  (CR  Method): 


PL  •  CR  LM  (1) 

PL'  -  CP  ■  L’M  (2) 

L'. '  •  1.1  ■  RL  (3) 

C'.;  l.I  P'.’  (4) 


For  ca  1  cu  1  a t  ions  6.0,  6.1  <;ind  6.  3  (The  weapon  radii  are 
either  calcuKiK^l  or  ent.eretl) 

RL  =  LW 

RW  =  '.-m 

The  ’ollowinq  R  values  .ire  then  used  iti  tlv^  probability 
calculaf  ii'in:  C!'i',  L,  ,  A'',  PI,,  i'''',  '.vl,  and  I".-.'. 


1  ]  ■•  > 

C!'!'  +  0.12M,'.-') 

(7) 

.■(’I'P  ( 

a 

1  'FP"  a  0.1  .’F'-.TM  ' 

(R) 

LI'TA  L 

+  2  PL 

(  01 

.;fta 

f  2''’'.' 

(10) 

r  '.'I'TA 

: 

a 

(11) 

.  V.'F'TA 

;  wci'i' 

a 

(12) 

(3) 

(6) 
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1 

1' 


PARTITION 


AUTOMATIC 

LIBRARYMOOULE 


OATA  REGISTERS  FOR  EXAMPLE 
A  REG. 


COMMENTS 


COMMENTS 


07 

Marks  limit 
check  error 

09 

Distinguish 
P-target  from 
Q- target 

b.  1 _ 

COMMENTS 


LABELS 

STEP  COOE  KEY  COMMENTS 


indirect  RCL  (Pgm  9) 


Y 

HOB 

Soil  medium:  1,2, 3, 4 
Length  WR,  CRM,  or  K 
Width  WR,  CRM,  or  K 
CEP 

Target  length 
Target  v/idth 
Aimpoint;  0,1 
Length  VN 
Width  VN 


CEPa 

calc. 

calc 

.  eq.15-17 

6.3 

calc. 

6.2 

calc. 

6.1 

calc. 

6.0 

calc. 

PROGRAM  MEMORY  (LIST) 


STEP 

CODE 

KEY 

COMMENTS 

STEP 

CODE 

KEY 

COMMENTS 

i  i  f\ 

L  4  »_ 

Label  C. 

04“’ 

23 

See  Eg.  5 

!  j  i  j  1 

:  r 

i_ 

0  4  R 

4  2 

STD 

R29=LW 

Calculation  of 

04? 

•  -4 

4  'r^ 

'J  U  : 

-  o' 

:  ^ 

adjusted  CEP  for 

fl  ‘=‘.  'i 

■J  4 

4 

!_i  i_;  4- 

1  -  j  . 

; 

width  or  length 
see  Eqs.  7  and  8 

051 

fl  ■c  4 

0  ’  4 

4 

"WW" 

fi  ('■  - 

:  — 

05? 

i'i  ■« 

Print  entered 

"■  ~ 

-  r 

F  1  ^ 

054 

?r 

F  0  M 

Width  Weapon  Radius 

or  - 

*  ~ 

1 

c;  4 

1  3 

C  ‘ 

See  Eg.  6 

U  I 

4 

05“ 

—  _i 

c  T  n 

_•  •  L4 

R26=RW=WW 

j  I  1 

4 

iJ  5  B 

or 

2 1- 

R27=WW 

L'  _  _ 

:  0 

i 

0  5  ? 

—  4 

‘l:  T  D 

■_7 

U  b  ,= 

4 

1 

r"  4 

f  ^  r\ 

U  b  1 

_■  i 

1 

"C" 

1  !  j  1  0 

■; 

L  c-  L 

Label  D'. 

U  t-  s 

'  ■*! 

_  =< 

Ti  s 

0  6  ; 

4-2 

z  TD 

Print 

UI 

■  : 

Calculation  of  a  part 

iJ  t 

■J4 

U4 

CEP 

~  •; 

of  Eos.  15,  16,  or  17. 

U  t* 

i_i  '  -i 

: 

!■  - 

L‘ 

:  :  4 

-■J  r 

4  _• 

-  5 

or  “ 

;  E; 

r  * 

4 

F :  ^ 

U  t--  ‘ 

.'  4 

4 

t"i  t'  O' 

- 

I  !  K 

” 

L 

(*  0  : 

4 

-h  '  - 

0  ^ 

:  -.r 

0  -  ^ 

Check  and 

■  •  / 

4 

i"{  ”  ' 

4 

ori  nt 

■  :  IT 

0  - 

I-O' 

i*i  — 

• 

•!  “ 

Length 

4  t 

—  j 

L'O : 

fl  f  0 

i":  ■  " 

-4 

4-  - 

l_i  4 

:  M 

i"  '  - 

_  =■ 

fi  ^ 

Z~ 

P  - 

Lower  Limit  =  W 

!~i  - 

?  4 

4 

Upper  Limit  =  9E9 

-  4 

1  ! 

F  L-1 

i 

■ 

— 

fj  **  : 

T'  ^ 

. 

-  ■ 

'  ;  • 

- 

F 

L'  ‘r 

:-4 

4 

"W" 

J  -f 

“  _ 

L£^ 

Label  D. 

‘j  1 

o' 

0 

■  C 

4 

L*  * 

4 

r 

Check  and 

•J  :  - 

O' 

Input  Weapon  Radii 

L'  -I’  0 

7 

print  W 

i  7^^ 

- 

-♦ 

F 

Lower  limit  =  6 

0 

C*  'E:  r: 

"  r>  4  ■: 

” 

"LW" 

0  ” 

I 

"A" 

C'  4 : 

4 

-+ 

Print  entered  Length 

Li  Li  : 

.  0- 

J- 

'  r"4~ 

* 

0 

Weapon  Radius 

0  r  - 

.  _i 

;  ~ 

Check  and  print  aim 

;  - 

F  or- 

IJ  ?  ? 

_  4 

4 

point 

04  4 

/  4 

4 

L' '?  1 

“2 

F  j-r 

0  4  5 

-! 

r  ■ 

0 '?  0 

T:  4 

0  ? 

ij  4  K, 

I-* 

'FTD 

R28=RL=LW 

ij  ■?  ? 

1 

H  ■ 

PROGRAM  MEMORY  (LIST) 

STEP 

CODE 

KEY 

COMMENTS 

STEP 

CODE 

KEY 

COMMENTS 

0  9  4 

H? 

IFF 

If  Flag  7 

141 

4  4 

STO 

095 

Ti 

ij 

is  set. 

14^: 

U  1 

U  1 

Calculate 

■"•  -2= 

go  to  370 

1  4>J 

43 

RCL 

f!  H  7 

7  0 

144 

-2=  7 

•2'  "T' 

WCEP 

See  Eq.  8 

j  1  Q 

4 

RCL 

1  4  “i 

1  Q 

c  • 

0  9  9 

*'  4 

V  4 

1  46 

43 

RCL 

1  fi  f  1 

4.  ^ 

If  LW  X  WW  =  0, 

1  4 

i—.  0 

36 

Calculate 

101 

44; 

RCL 

148 

7  “i 

= 

WETA 

109 

“•  "7 

■2=  7 

1  4  9 

1  3 

P  8 

See  Eq.  10 

1  n 

ij  ^ 

= 

then  P  =  0  and 

cr  r-. 

77 

4 

Calculate  1st 

1  n4 

4;  4 

L-  ^ 

i  Ci 

02 

2 

hal f  of  Eq.  17 

1 05 

4.  7 

EJj 

i  c  I- 

35 

-i- 

1 0  6 

4i  2-‘ 

go  to  362 

i  c 

9  3 

Prepare  to 

4.  y 

4. 

^ 

7 

“ 

~ 

calculate 
last  part 

2' 

K  L-  L 

Cal culate 

1 

_i  H 

fr.V 

:  4; 

"■  « 

LCEP, 

a 

1  C" 

4-. 

of  Eq.  17 

■i  i 

1  j.  .L 

7  *1 

See  Eq.  7 
\ 

1  c;  c= 

6 1 

GTQ 

Go  to  347 

1  7  T' 

i’i  4 

-t 

1 59 

;*  !  -~S 

Ci  ”• 

1  1 

^  =: 

, 

1  Calculate 

1  Fn 

47 

L  -+ 

4  *! 

F:  C'  L 

J  LETA 

161 

LBL 

Label  C. 

^  T  c; 

2-  I’ 

1  See  Eq.  9 

1  h '? 

11^! 

::  z; 

4- 

) 

i  62 

26 

p 

CR-WR 

T  1  ~ 

4 

RCL 

1  64 

07 

"7 

Call  cratering 

i  *i 
i  i  -• 

4 

16 

Calculate 

165 

“  •; 

SBR 

Code  to  check 

1  1  4 

“i 

1 66 

0;T 

Limits  and  print 

■i 

r  - 

-=  - 

Yield  and  HOB 

Ah..' 

“ 

See  Eq.  11 

1  4 

7? 

“ 

7~: 

’i  2= 

V 

1  69 

7-; 

- 

"LM" 

1  : 

- 

ROl  =  0.221 

1  7  Ci 

‘i  n 

--j 

1  24- 

- 

1 

Put  i'  in  t  reg 

i  i 

2^  4 

►  T 

■4  "  c; 

-  2 

•2^  ^  U 

i  1  4 

1 

1 

l=Lower  Limit 

^ 

",  * 

*;  ^ 

1  .■■■•- 

”! 

4- 

i  -- 

”i  4 

4 

If  4  _ 

i  ;  4 

Ti  '2= 

2: 

3=Upper  Limit 

CE 

Case  1 

1  “7  — _ 

C6 

ROM 

Check  and  orint 

i  2 

2’ 

l”:  “ 

Co  to  Step  344 

176 

'  r* 

09 

Lenoth  ’’ultiplier 

1  9" 

- ► 

4 

See  Eq.  15 

1  “ 

1  2 

i_'. 

4  5  -r 

_2  2' 

RCi. 

If  Aim  Point=l 

i  -2= 

i  1  4 

4 

1  2^^ 

-  2' 

(center  of  target) , 

44 

0  2 

9 

"WM" 

1  ^7 

: 

t  '--.  * 

Case  2 

- 

7, 

1  -cr 

i  '■  ■ 

EU 

Go  to  Step  347 

i  '2'  4 

2^  4 

^  T 

l=Lower  Limit 

J  2' 

Li  .2^ 

See  Eq.  16 

L  i 

1 

1 

3=Upper  Limit 

4 

i  -• 

4  7 

184 

3 

R  i  j  1 1 

1  2 

4  -I 

Case  3 

i  «;:  cr 

!  1  4 

l_i  7 

Check  and  orint 

129 

140 

Cl  2i 
iCCl 

ROl =0.88 

186 

187 

1  ”• 

1 

4, 

c 

POM 

Lidth  Multiplier 

L 

_ 

% 
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PROGRAM  MEMORY  (LIST) 


STEP  COOE  KEY 


COMMENTS 


STEP  COOE 


COMMENTS 


iiiiy  Li 

RGM 

b  J 

•J  4I 

1  i  •  J 

iL  •!=  4 

1 

S  B  R 

V 

7  4+ 

■  - 

-1 

U  T  0 

lI!  i”:  ;■ 

1  w 

h  i  h. 

1"!  4 

■-'4 

i-  T 

RCL 

7  4 

291 

7  7 

r~ 

1-3  C. 

’-i  W 

M  y 

f  1 

2-'  ‘h  ; 

915 

294 

2 

I*’':  •}  i 

'■:*  —j 

Li  'J 

ij 

Q 

C|  cr 

H- 

29^ 

43 

P.  C-  L 

i  i 

■! 

1  i 

299 

2 

Ky  i-  T 

300 

6=; 

301 

3  0  2 

n 

2 

43  RCL 

is  EKC 
3  0  2  0 

42  STD 

1  3  1  2^ 

02  2 

04  4 

0  2i  3 

T 

43  RCL 

2  9  2  9 

36  PGM 


Check  WV, 

WK 

Max 

H  for 

WV,  WK 

Max 

H=rnin{L-max 

H, 

W-max 

H} 

"H" 

Check  and 

print 

H 

Calculate 

WW 

R26  = 

=RW=WW 

See 

Eg.  6 

WV 

)  Replace  to 

LK 

i  origi 

inal  register 

7  positions 

Print  LW 

Print  WW 


Go  to  beginning  of 
calculation 

Begins  calculation  for 
Case  1;  See  Eg.  15 
(step  345  calculates 
the  1st  half  of  Eg.  1_5) 
Begins  calculation  for 
2nd  part  of  Eg.  15  or 
all  of  Eg.  16  or  the 
2nd  part  of  Eo.  17. 

See  Eg.  B 

Calculation  of  >  or  > 
see  Egns,  12  or  13 


Call  D'  to  complete 
calculation  of  P 

"  p" 

Print  out  Probability 


SOURCES  OF  DATA: 

1.  DeJ^nse  Intelligence  Agency,  Physical  Vulnerability 
Handbook  -  Nuclear  Weapons  (U) ,  AP-550-1-2-69-1NT , 

1  June  1969  (C  Int) ,  Part  II,  pages  II-l  through  II-8. 

2.  Horizons  Technology,  Inc.,  Nuclear  Weapons  Effects 
Programs,  DNA-lCROM-1,  3  November  1978,  Programs  8  and  A-1. 

DESCRIPTION : 

a.  Objective 

Given  any  two  of  the  following  three  values,  crater  radius  (R)  , 
height  of  burst  (HOB)  ,  or  weapon  yield  (Y)  ,  this  program  will 
calculate  the  third.  Programs  are  also  included  that  calculate 
the  optimum  HOB  and  corresponding  crater  radius  given  a  yield, 
or  optimum  HOB  and  minimum  yield  given  a  crater  radius. 

Results  are  provided  for  four  different  surface  medium 
categories : 

Medium  1:  Dry  Rock  (less  than  3%  moisture  content) 

Medium  2:  Wet  Rock  (more  than  3%  moisture  content) 

Medium  3:  Dry  Soil  (loss  than  10&  moisture  content) 

Medium  4:  Wt't  Soil  (more  than  107  moisture  content) 

A  negative  height  of  burst  xS  interj-reted  as  a  distance 
below  ground.  Crater  dimensions  are  estimated  in  the  reierenced 
documents  v.’ithin  +15°.  In  layered  media  or  in  the  presence 
of  an  intersecting  water  table  the  accuracy  is  estimated  to 
be  reduced  to  +257. 

B .  I np u  ts-Qutpu 

The  medium  number  is  used  in  all  five  program  calculations. 

The  following  other  values  are  used  in  each  program: 
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Program  7.0: 
Inputs : 


Crater  radius,  depth  and  volume 
Yield  (KT) 

HOB  (ft) 


Program  7.1: 
Inputs : 


Less  than  optimum  depth  of  burst 
Yield  (KT) 

Crater  radius  (ft) 


Program  7.2: 
Inputs : 


Necessary  yield 
Crater  radius  (ft) 
Height  of  burst  (ft) 


Program  7.3: 
Inputs : 

Program  7.4: 
Inputs : 


Maximum  crater  radius,  optimum  HOB 
Yield  (KT) 

Minimum  yield,  optimum  HOB 
Crater  radius  (ft) 


A  rough  estimate  of  the  following  crater  dimensions  can  be  calculated 
from  the  output  values: 


Radius  of  the  crater  from  the  top  of  the  lip  =  1.25  R 

Depth  of  the  crater  from  the  top  of  the  lip  =  1.25  D 
(depth  from  surface) 

Radius  of  the  ejecta  material  =  2.5  R 


C .  Limits 

Yield:  1  KT  Y  L  30  MT 

Medium:  M  =  1,2, 3, 4 


M  =  Medi.mi 

(l  =  dry  ro-'.k,  2-wet  rocl<, 
3=dry  soil,  4=wet  soil) 


For  Program  7 . 0 

HOB:  -200  (Y)  ^  _  HOB  _  20  (Y)  ^  ft 

(a  negative  HOB  denotes  a  depth  of  burst) 

For  Program  7 . 1 

Crater  radius:  0_RiU.L.  (Upper  Limit) 
where 


U.L. 

=  151. 8 (Y) ^ 

for 

dry 

rock 

U.L. 

=  174 . 9 (Y) ^ 

for 

wet 

rock 

U.L. 

=  161.7 (Y) ^ 

for 

dry 

so  1 1 

U  .  I, . 

=  214  .  5  (Y' 

for 

wet 

soil 
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U.L. 

U  .  I, . 


For  Program  7 . 2 


HOB:  -3000  <  HOB  <  300  ft 

Crater  radius:  L.L.  £  R  £  4  exp  |a  +  .7  In 

where  L.L.  is  the  lower  limit,  and: 


HOB 
442 . 2 


A  =  5.77  for  dry  rock 
A  =  5.94  for  wet  rock 
A  =  5.94  for  dry  soil 
A  =  6.21  for  wet  soil 


For  HOB  >  0 
L.L.  =  3.7 


For  HOB  £  0 

L.L.  =  3.7  exp 
where 


B  +  In 


/ -HOB 
I  3.3 


)1 


B  =  -1.27  for  dry  rock 
B  =  -1.30  for  wet  rock 
B  =  -1.73  for  dry  soil 
B  =  -1.20  for  wet  soil 


D.  Special  Features 

The  program  leaves  the  calculator  in  the  radian  mode. 

Pressing  R/S  will  initiate  the  previously  keyed-in  type 
of  calculation  even  if  the  inputs  are  changed. 


E.  Data  Storage  Locations,  Printer  Alphanumerics 


Variables 


Registers  Alphanumerics 


Yield 

HOB  or  optimum  HOB 

Medium 

Radius 


RIO  Y 

Rll  H 

R12  M 

R13  R 


ft 
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EXAMPLE  7.0,  7.1,  7.2  {General  Calculation  and  Inversions) 


Calculate  the  crater  radius,  depth  and  volume  produced  by  a  weapon 
of  yield  10  KT  set  240  feet  below  the  surface  in  dry  rock.  Then  find, 
for  the  same  weapon,  the  HOB  that  will  produce  a  crater  radius  of  150 
feet  in  wet  soil.  Finally,  find  the  yield  of  a  weapon  which  produces  a 
100-foot  crafter  radius  when  set  20  feet  below  the  surface  in  wot  rock. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off  -  then  on 

0 

H 

Select  program  01 

2nd 
Pgm  01 

0. 

B 

Enter  weaoon  yield,  Y(KT) 

10 

A 

10. 

1 

Enter  HOB  (ft) 

(Note  that  a  negative  HOB  means 
a  distance  below  ground) 

-240 

B 

-240. 

5 

Enter  the  medium 

1 

C 

1. 

(1  =  dry  rock,  2  =  wet  rock, 

3  =  dry  soil,  4  =  wet  soil) 

6 

Calculate  the  crater  radius  and 

7.0 

2nd  E' 

7. 

depth 

10. 

Y 

-240. 

H 

1. 

M 

301. 

R 

3.01  02 

173. 

D 

7 

Display  the  crater  volume  (ft^) 

2nd  X 

2.462  07 

8 

Enter  crater  radius,  R(ft) 

150 

D 

150. 

9 

Enter  the  new  medium  value 

4 

C 

4. 

10 

Calculate  the  HOB  (ft) 

7. 1 

2nd  E' 

7.1 

10. 

Y 

4. 

M 

150. 

R 

3.28 

3.28 

H 
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EXAMPLE  #7.3,  7.4  (Optimized  HOB  Routines) 


Calculate  the  maximum  radius  that  a  1-KT  yield  bomb  can  produce  in 
dry  soil  and  the  optimum  HOB  that  the  weapon  should  be  set  at  to  produce 
this  radius.  Compare  this  to  the  maximum  radius  produced  by  the  same 
weapon  in  dry  rock. 

Then  calculate  the  smallest  yield  that  a  weapon  must  have  to  produce 
a  crater  radius  of  200  feet  in  wet  soil  and  the  optimum  HOB  that  the 
weapon  must  be  set  at  to  produce  this  crater. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off  -  then  on 

0 

D 

Select  program  01 

2nd 

0. 

■I 

Pgm  01 

B 

Enter  weapon  yield,  Y(KT) 

1 

A 

1. 

B 

Enter  the  medium 

3 

C 

3. 

(1  =  dry  rock,  2  =  wet  rock. 

3  =  dry  soil,  4  =  wet  soi 1 ) 

5 

Calculate  the  maximum  radius  (ft) 

7.3 

2nd  E' 

7.3 

and  the  optimum  HOB  (ft) 

1. 

Y 

3. 

M 

162. 

R 

-158. 

-158. 

H 

6 

Change  the  medium  to  dry  rock 

1 

C 

1. 

7 

Repeat  the  same  calculation 

R/S 

7.3 

1. 

Y 

1. 

[•1 

152. 

R 

-109. 

-109. 

H 

8 

Enter  the  crater  radius,  R(ft) 

200 

D 

200. 

9 

Enter  the  new  medium 

4 

C 

4. 

10 

Calculate  the  minimum  yield  (KT) 

7.4 

2nd  E’ 

7.4 

and  the  optimum  HOB  (ft) 

4. 

M 

200. 

R 

0.792 

Y 

-129. 

-129. 

H 

riouA'^roNs 

Def initions 

Y  =  Yield  (KT) 

HOBi  =  Heiqht  of  burst  for  the  equivalent  1  KT  explosion 
HOB  =  Heiqht  of  burst 

=  Crater  radius  for  the  equivalent  1  TT  explosion 
R  =  Crater  radius 

D]^  ~  Crater  depth  for  the  equivalent  1  K"’  explosion 
D  =  Crater  depth 
=  Crater  volunie 

OTT  HOB  =  Optimal  Height  of  Burst 

Routine  7.0: 

HOB,  = 

3.3':' 

For  !!OB^  2  -1 


=  3  .  3  (  k-i'OB  I  exp  -q  (k -HORj^  j  - 1 
=  3  .  3  (  k-HOB  )  "^exp  -m(k-HOB^)-p 


For  HODj^  ••  -4 

=  expjcsin  |  a-bf  n  ( -HOBj^jj 


0-15  _  J 


=  exp  jhsin  |f-g/n  (-HOB 


|0.2  .  J. 


R  =  Rj^{y) 
D  =  D^(v) 
ttR^D 


*For  a  Dry  Soil  Medium: 

=  expjhsin  |  f-g/n  ( -[lOB^  ^  -  j| ;  3 


% 


The  coefficients  for  the  radius  calculation  are; 


Coef  f icient 

Dry  Rock 

Tlet  Rock 

Dry  Soil 

Wet  Soil 

f 

74.2 

71.6 

56.0 

56.0 

g 

18.4 

17.3 

13 . 0 

13.0 

h 

4.47 

4.67 

5.68 

5.68 

j 

0.0 

0.0 

0.0 

1 . 0 

a 

150.0 

153.0 

117 . 0 

128.3 

b 

37.0 

36.0 

25.0 

29.0 

c 

6.02 

5.15 

5.07 

3.35 

d 

1.0 

0.0 

0.0 

3 . 0 

k 

5 . 5 

7.5 

11.0 

11 . 0 

s 

3 . 6 

3.8 

6.9 

4  .  3 

q 

.342 

.27 

.  38 

.  237 

t 

1.5 

2.7 

9.4 

4  .  5 

n 

3 . 9 

2.1 

5.1 

2.7 

m 

0.4 

0.08 

0.25 

0.08 

P 

2.  5 

1.5 

7  .3 

3 . 3 

Routine  7 . 1 

This  routine  uses  the  false  position  method  to  calculate  the 
HOB  given  R  and  Y. 

^<5  “  - T — T  (radius  for  a  1  KT  explosion,  in  (10) 

3.3Y  ■  meters) 


r,H^—  r^Fl- 

H  (1)  =  -  ...  - - ±-—  1st  Iteration 

new  r^  -  r^ 


where: 

for  R  <  .1, 

s  ' 


for 
ri  = 


R 

s 


2(P-R^) 

Y 

4 


(11) 


(12) 


(See  table  below  for  the  coefficients  ■<,  |- ,  >,  \,) 

and  represent  scaled  depths  of  burst. 

Using  H  (1)  as  HOD^  ,  P.^  is  calculated,  usinc;  equation 
new  11 

(2)  for  Rg  a,  and  equation  (4)  for  R^  _  t. 

For  r^  =  ^r^.  (13) 

(This  increases  the  accuracy  of  the  false  position 
routine) . 
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I 


Rn  H  (1) 
1  I  new  I 


(R  xr,  )  <0 
new  1 


(R  xr,)  >  0 
'  new  1  — 


r  T  =  R 
2  new 

Hi  =  H  (1) 
1  new 


^2 

»2  =  »1 

r  T  =  R 
2  new 

"l  -  »new'l' 


Mow  a  second  H  can  be  found  using  eauation  11: 
new  ^ 


^1^1  ^2^^2 
^1  -  ^2 


HOB  =  -3,3  li  (2)  (Y) 

nev/ 


The  coefficients  for  the  HOB  calculation  are: 


Coef  f ic ient 

Dry  Rock 

Wet  Rock 

Dry  Soil 

Wet  Soil 

a' 

28 

32 

35 

35 

Q 

46 

53 

49 

65 

33 

40 

48 

42 

6 

0 

1 

2 

6 

'  X  is  the  radius  for  HOB  =  -4  meters  and  v  =  1  ;<t 
^Maximum  R^  in  meters 

^Depth  of  Burst  for  this  Max  Rj^  in  meters 
**  i'  =  radius  for  HOB  =  5  meters,  Y  =  1  KT 

Routine  7.2 

This  routine  uses  the  false  position  method  to  calculate 
the  yield  from  a  given  HOB  and  radius. 


=  '"(3^ 


K  =  ^ 

m  3.3 
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Y 

new 


(1) 


r  Y 
11 


r  Y 
2  2 


^1  ■  ^2 


where: 


Y^  =  10.3 

,  H 

r-  =  Znz  +  3  +  .  7  /n  1  -  — ^  -  r 
^  1 34  L 

and 

for  H  >0 
m 

ri  =  :  2 

~  ~  Pn  ( 4+Medium)  j  :  3 


for  H  <  0 
m  — 

r^  =|i>nz  -  w  +  fn(-H^)  -  :  2 

=  (  ^n(-f!^)  -  w)  f  3 

(see  below  for  a  table  of  coefficients  w  and  z) 


(20) 


(21) 


Now  V  (1)  is  substituted  into  equation  1  and  then  either 
new  ^ 

equation  2  for  HOB^^  ^  -4  or  equation  4  for  HOB^  ^  -4  is  calculated 
to  produce  a  new: 


R,  jexp 


Y 

new 


(1) 


1 


ri  =  .8r^ 


(22) 


Now  an  iterative  routine  is  performed  twice: 


new 


in 


Rj^  jexp 


Y  (: 

new 


for  ( R  ' r T ) 

new  1 

r  T  =  R 
2  new 


Y  ( i) 
new 


3.3 

0 


- 

for  (R 


i  =  1  or  2 


•  r,  ) 
new  1 


1  "2 
Y  = 

>2  '•  I 


(23) 


(  24  ) 


now 

Y  (1) 
new 
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(25) 


~  ^^2 


when  i+1  =3  (2  iterations  of  equations  23-25) 
then  y  =  exp|Y^g^(3) 


:he  coefficients  for  the  yield  calculation  are: 

Coefficient  Dry  Rock  Wet  Rock  Dry  Soil 


■*:et  Soil 


z  ‘  16 

w  4.05 

‘Radius  for  HOB  =  0,  Y  =  1 


19 

4.25 


19 

4 . 68 


25 

4.42 


Routine  7 . 3 


rhe  maximum  radius  R  is: 


R  =  3. 3P  (Y) 

OPT.  POB  =  3.3y(Y) 


Routine  7 . 4 


The  minimum  yield  Y  is: 

r  o  110/3 


OPT.  HOB  =  3.3-,(v) 


where  Y  is  the  value  from  equation  29. 


* 


PARTITION 

FLAG 

COMMENTS 

1 

07 

Marks  limit 

AUTOMATIC 

check  error 

LIBRARYMODULE 

09 

Set  for  depth 
calculation 

CROM  A-1 
(Program  7) 

COMMENTS 


DATA  REGISTERS  FOR  EXAMPLE 
DATA  REG. 


7.1 

COMMENTS 


STEP  CODE 


LABELS 

KEY  COMMENTS 


Coeff.  unpacker 
Return 
Feet/Meters 
Retrieve  HOB 
coeff. 

Retrieve  coeff. 
Yield  seal  i ng 
R  or  D  calc. 

Y  1 imi t  checks 
Y,  HOB,  M  lim. 

M  1  imi t  check 
Rmax.  OPT  HOB 
Ymin,  OPT  HOB 
Rmax  Of"  OPT  HOB 
R,  D,  V  calc. 
HOB  calc. 

Yield  calc. 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE  key 


COMMENTS 


U  . 
0 IJ  ' 


!  M  I  ■ 


U  1 

0  1  ’? 
•  j  2  Ci 

fi  2  1 

022 
024 
025 
i  j  2  6 
fy2~- 


LBl 

R  ■ 


P  r:  i 


^  K  L 


‘4 

u 


iH 


LBL 
F:  i  )■•! 
F:  T 


Label  A'  . 

Unpacker  routine 
for  coefficients 

Display  =  Value  in  dis¬ 
play  when  A'  called 
Takes  r  - 

and  puts  it  in  the 
di splay 


Takes 

integer 


R23 


10 


R02 


and  puts  it  in  R23 


Label  RTN 


Label  E' 

3.3 


0  4  ” 
042: 
ij  4 
050 
05  i 
052 
05  2 

0'^=; 


U  6  i 
0  6 ! 
06; 
06 ' 
0  6  ‘ 
06' 
0  6  i; 
06‘ 
0  6 :: 
0  6  : 
iJ  1  ■ 

07 ; 
07- 


SBF; 
--0  INI: 

-i  2  2  T  0 

22  RTN 

“*  .  ■  I  r:  • 

-=  i_  D  i_ 

1  '”’5  ^ 

-2  RCL 


RTN 

LBL 


04 


with  string  in  the 
displ ay 

Store  string  in  R23 


Label  E. 


,0.3 


Scaling  factor 
1 


R03  = 


,0.3 


Label =. 

Routine  to  calculate 
crater  radius 

See  Eq.  1 
HOB 


H0Br3.3Y0-3 


n 

H  ,0 

RTN 

fl  ,■■■  6 

-j 

-!  i"i 

7 

1  I-;  1 

Label  C '  . 

07^ 

n 

* 

f:  * 

n  7  ::: 

j- 

i":  ■= 

'I; 

n  7  4 

0 

1- 

■'  2: 

0 

Routine  to  retrieve 

0  S  0 

P 

2'  ^ 

cr 

_ 

HOB  coefficients 

Li  b  1 
0  £■  2 

!j 

IJ 

::T 

!  'i :-! 

. 

LBL 

Label  B' 

0  0  2 
004 

0 

77: 

B  ■ 

0:25 

n 

-1 

r:  ”l 

General 

M  b  *1. 

L4  :J. 

4  2 

RCl 

coefficient 

0  0  ^ 

L- 

A  - 
^  i 

-  ^ 

i  J. 

string  routine 

IJ  b 

4_2 

■^5 

= 

fi 

fi 

■ 

4  2 

■-A  y 

0TO 

0  2  0 

044 

_1  i 

^  i 

iT^i 

0  4  5 

2'  6 

pen 

Pgm  9 

0  9  2 

0  4  6 

U  9 

On 

SBR  Ind  21  returns 

0  9  2 

R05  =  -HOB^ 


If  -HOBj  J  4, 
go  to  501 

Calculation  of  CR  for 
-HOBi  '■  4 


Get  coefficient 
str i ng 


B  • 

RCL 


I  Store  it  in  R23 

I 


PROGRAM  MEMORY  (LIST) 


STEP 

CODE 

KEY 

COMMENTS 

STEP 

CODE  key 

COMMENTS 

0  9  4 

CT 

■Z‘  J 

+ 

+ 

141 

0  0  i  J 

G  9  5 

f  i  Q 

x|. 

RCL 

C. 

-HOB^ 

1  42 

i  •; 

C-  7 

ij  9  7 

9  7 

= 

= 

i  *4  4 

ii  d 

"H" 

0  9  7: 

r,  n 

1  5 

L=  2=  2= 

Ci  9  9 

T 

1  4  c= 

2  _1  •;  i 

1  0  Ci 

i“i  l": 

1  4 

2i  6  P  G  M 

1  ij  1 

GE 

1  4  4; 

0  9  0  9 

1  n  7^ 

fi 

fi  1 

14  7* 

1  0  7 

]_3 

T  cr. 

•  -=  L  ti:  L 

Label  CMS 

104 

1  4= 

H  • 

Recal 1  q  or  m 

i  c:  <! 

,2.  l”  c 

■i  CT  - 

1 

-f 

^  ~ 

i 

•-  -• 

"M" 

1  06 

5 

- 

‘J  Li 

1  i~i  7 

-1 

1 

CT  9 

i  -  J  ^ 

-7=  Z’  T  ~r 

Check  and  print 

1  M  H 

:  4: 

H  ‘ 

Recall  t  or  p 

155 

U4  4 

.medium  number 

1  9  9 

- 

1  56 

36  PGr1 

1  1  fi 

j 

1  c;  — 

Cl  9  n  9 

1  1 

'1 

lh:c 

1  c;  c= 

1  ii'  R  ‘ 

1 

1  i 

1  5  9 

9:-'  PIN 

"  - 

.  •  L 

w  .. 

i"6  LBL 

Label  D. 

X  1 

;2. 

.■  7  -i  i 

i  t=  '-J 

Calculation  of  R  and 

1  14 

4_Ii 

Y 

1 6 1 

-  4  i) 

OPT  HOB. 

i  1  cr 

1  X  -■ 

0 1 

1 

I  641 

^1  SBR 

Check  and  print 

116 

1  >1' 

H  • 

Recall  s  or  n 

1  K  -  •! 

-  6  '  C  ■  < 

yiel  d 

1  1  7 

6  5 

164 

69  OR 

1  1  '3 

1  0 

E  ‘ 

165 

J,  w 

119 

I  bb 

1  S  B  F: 

Check  and  print  medium 

4X 

9Tn 

167 

4^  CM::; 

I  l1  1 

i_?  4 

04 

Store  R^  or  0^  in  R04 

1 1‘  s 

67  IFF 

If  flag  7  set,  go  to 

1  22 

RTH 

L’  'J 

Label  RTN 

1  d.  2’ 

“y 

LBL 

Label  Y^. 

1  y'I’I 

92  RTH 

i  4 

*-r  “i 

T 

i  i'  i 

9  6  HilV 

1  4  j 

9  Zi 

Check  and  print  Yield 

f  C4 

1  6  C  • 

Recall  HOB 

1  l1 

L*  i. 

1 

i  f  0 

ij^  j: 

coefficients 

1  ■' 

2=  O 

PGM 

1  Y'  4 

■4  6  6  I  U 

1  7;-i 

fi  4 

! !  ‘y 

1  C 

•-*  42.  L'  i2 

X  l1 

^  7 

B  • 

1 

16  H  ‘ 

1 

y 

RTH 

1  7  7 

66  STF 

See  Eq.  27 

X  -■  1 

:i= 

LBL 

Label  PRT, 

1  Y’ d 

Li  '  iJ  •' 

1  iC  2 

■-i  'h' 

PRT 

1  7 

19  D  ' 

Calculation  of  R 

max 

1 :9  4 

4  7 

12'  4' 

Call  yield 
check 

77 

-  1  :  •! 

"R" 

1  '2'  ^ 

1  »_•  • 

:  i  S 

i  • 

HOB 

1 

'.y  ;  T 

1  9'^ 

c;  c" 

Limit  check 

i  r-  A 

i  0  7 

36  PGM 

Print  radius 

1  39 

•  c 

'  T 

and  print 
routine 

IBt. 

U  9  U  9 

12  B 

:  140 

1 

01 

1 

1S7 

92  STD 

R13=R 

PROGRAM  MEMORY  (LIST) 


comment: 


STEP  CODE  key 


HD'- 
F'  D  f! 

Ij  9  ,J  M 

1 2  B 
>^2  STD 
1  Cl  1  Cl 


"c  LBL 

ill  -  t- 

■  O  T;  * 

Go  to  O'  to  calculate 

H  i  2 

1 3  h  ' 

OPT  HOB 

DTCi 

22  2 

Label  PAU. 

'4  1 

0  3  5 

Calculation  of  Y  .  and 

r  — 

OPT  HOB 

243 

1 5  E 

^  *4  “f 

” 

>:  7  T  iT  p 

Check  and  print  medium 

^  *4  Z'- 

Ti  7  :~j  ^ 

Z  4  r' 

2  7  P  T  y 

"R" 

^  ’l: 

94  4--- 

Print  radius 

*4  Ir 

33  PGM 

CT  "• 

f  i  b  n  Q 

-t-  cr  •; 

1  7  P 

-  -  C;  T  n 

If  flag  7  set,  go  to 

“«  cr 

i  i  i  i. 

Label  RTN 

' d 

“s  C  •_ 

b  LPL 

i- 

1  1  H 

«r.  -? 

3BF; 

Calculation  of  minimum 

t-  c:  o 

F4- 

yield 

259 

;4  I  4  P 

ui  b  Li 

iJ  7  0  ^ 

See  Eq.  29 

261 

L-  1^:  .  - 

92  PIN 

9  3  filiV 

^  6  Ji 

T’l  SB-; 

2b4 

95  = 

2 1 5 

"^7  7 

2  b  b 

Li  iS  '3 

2 1- 

i  *  b 

'  '7  7  j"  T 

2  b  r* 

33  PGM 

H  Y  " 

27  1 

:  2  B 

222 

-2  STB 

7  4 

33  STF 

*7  CT 

Cl  4  il  4 

4 

Li  4  4 

Print 

2  f 

0 1  1 

Yield 

"7  C’ 

fi  7  7 

R10=Y 

279 

b  5 

230 

4  3  PCL 

-1  1 
wO  L 

02  ij2 

COMMENTS 


Calculation  of  OPT 
HOB  or  max  R. 

See  Eq.  28  or  30 


Print  opy  hoB 


Rll  =  OPT  HOB 


I 


Label  A. 

Calculation  P,  o  o  '/ 
Call  Y,  HOB,  M 


If  Flag  7  set, 
go  to  RTH 

Call 

radius  calculation 
Return  with  R-j  in  R04 


Print  crater  radius 


Set  Flag  9 

Prepare  for  depth 
calculation 


■  j-  rt  't  Tj-  Tj-  Tt  -rj-  T)- 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


COMMENTS 


JS  PGM 


92  RTn 


P3  RCL 


;:9  3  13  E  = 


3  9  9  9  4 

4  0  i  j  4  2 

401  2  6 

402  P4 

4  0  2!  2  4 

4  n  4  0  3 


3BR 
0  p  ij  ■■■■ 

‘-f  4  • 

42  STD 


423 

06 

OR' 

Go  to  690 

4-  4+ 

4  [~! 

1 

"R" 

4  4 

4  *-■ 

'’6 

L&L 

1 

Label  C. 

Calculation  of  Yield 

1 

"  ” 

inversion 

4 

L  L 

See  Eq,  18 

i 

4  tl 

i.  < 

i  Z- 

4  , 

cr  cr 

— 

Cal  cul ation 

If  flag  7  set,  go  to 

4 : i‘) 

n 

E  ‘ 

of  R, 

i 

Label  RTN 

_  _ 

1_ 

H  .!•  i 

^  -= 

L  r  i ,  • 

See  Eq.  18 

432 

P2 

sTfi 

R01=R|_ 

i 

433 

)J  j. 

0 1 

i 

Y-0.3 

434 

4 

f-.  w 

n  r: 

L-=  r 

4  -I-- 1= 

i  JX 

3 

4  4? 

n  n 

Cl 

Limit  check  for  HOB 

P  _  (R) 

^  3.3y'^‘^ 

4  3  S' 
439 
44U 

OU 

f:  5 

;■  1 

and  medium 

STO  01 

441 

0 1 

Tt  •; 

See  Eq.  19 

'ij 

If 

*^5  -  ‘  ‘ 

444 

4  *4 

S'  9 

.  X 

RCL 

H  HOB 
m'3.3 

*4  4 

j.  i 

Go  to  Step  666 

44M 

cr  ct 

- 

446 

1  3 

E  ■ 

=- 

44? 

4Z 

Sin 

R28=H 

! 

2 

4  4 

■*:  "s 

m 

1 

u-R5=R24 

449 

0  3 

d 

'■J  '■ 

.1  C"  • 

^  •-=  i 

Ub 

s 

4  4 

'z-  Ti 

A  C 

H  -J  T 

1 

6 

Get  coefficient 

r2=-R5  +  6 

c  .< 

‘t  -J  ^ 

1  7 

B 

string  from  Pgm  9 

4  ^ 

4  J  t' 

L'  i 

1 

-•1  C  -? 

*T  •' 

4;-' 

EE 

R25=H^=-5 

A  C 

M- r. 

i- 

459 

: 

- 

460 

5  9 

1  r4  T 

„  /l^r"2^2 

”new 

461 

4 

lh;< 

41TT' 

4"^' 

C;  T  n 

4  b  S' 

4  4 

3  4 

R24=r^  =lnz 

R26'r2  =  '' nz 

R05=H 

new 

4  S'  4 

465 

36 

STO 

3  C' 

Calculation  of 

4  t'  b 

ui  4 

I  N ' 

Eg.  12 

4  b  i' 

4  :!> 

lh;i 

to  get 

468 

95 

= 

R/H  } 

1  new 

469 

_ 

65 

13 


PROGRAM  MEMORY  (LIST) 


STEP 

CODE 

uu 

470 

01 

1 

471 

!9  Cl 

0 

4  'd 

4  Li 

c  T  n 

cr 

4  7 :« 

4  74 

d 

■7  “ 

475 

C;  5^ 

4- 

470 

4  2 

RCL 

.-i 

^  i 

j.’  d 

Ll  b 

4  F  o 

94 

+  .  ■■■  - 

4  70 

• Q 

CP 

4  b‘ 

“7 

GE 

40  1 

r  -.  c* 

L'  J 

05 

•i  .*> 

^ 

cr  i 

H*  r  -.  ^ 

-i  1 

4  c' 

CLR 

4  d  4 

>^2 

STD 

4iB5 

24 

2  4 

4  8  6 

43 

RCL 

4  8  i 

d 

d  b 

4  EJ  E: 

2  d 

LHa 

4  S  9 

i 

- 

490 

CT  j 

< 

491 

04 

4 

492 

85 

+ 

492 

4  2 

RCL 

444 

1  ^ 

•p 

495 

54 

496 

d  •-* 

LNli 

497 

95 

= 

498 

i/ 1 

GTO 

4  9  0 

5 

05 

5  C!  0 

5  9 

5  9 

501 

r-.  i 

L-  i 

i 

502 

i  H, 

7: 

503 

■"1 S 

c. 

504 

0  J 

•f 

505 

fi 

506 

f; 

■j 

507 

i  -7 

e'* 

500 

fi  ■■= 

509 

I  8 

R  ' 

5  1  0 

1  ”i 

_ 

5  i  1 

i'l  -■ 

512 

1  E- 

fi  * 

5  1 :3 

85 

514 

43 

RCL 

515 

05 

05 

516 

2 

lh:< 

COMMENTS 


STEP  CODE  key 


517  4  5 


R25=Y^=10 


If  -H  >  0 

m  - 

Go  to  551 


R24=r^=0 


COMMENTS 


)5  05  a-b  •  .n(-HOBp 

^6  26  is  -•  0 

'2  STQ  =  0  =  R^  or 

■4  i1 4 
^2  RTH  RTN 


ri"F  I  Flag  9  set  when  depth 
calculated 


Go  to  step  559 


Calculation  of  Radius 
or  Depth  for 
-HOB  _  4 

See  Eqs.  4  and  5 

Get  coefficient  string 
Recal I 
a  or  f 

Recal I 
b  or  g 


Recal  I 
c  or  n 

Recal  I 
d  or  j 


Store  R^  or  D-j 
in  R04 


Continuation  of  yield 
i nversion 
R24=f,n2 

+  [-w+Pn( -H^) ] 


See  Eg.  21 


R25=Y,  =10.3 


PROGRAM  MEMORY  (LIST) 


STEP 

CODE  KE' 

5P.4 

95  = 

5P5 

42  STO 

5PP 

"T*  "7 

5P7 

4  3  RCL 

5PS 

•*!  iZ- 

5P:9 

7  R  — 

“7  >■ 

"i  1  1 

c.  "7  i 

“7  ■: 

c.  *7 

^  7  il 

fi  1  1 

c;  "7  cr 

QS  = 

=;?p 

: :3  !  N  ;< 

cr  “7  "7 

4. 7 

c;  "7  c= 

■Zi 

574 

fi/  7 

580 

L;  5  ■*“ 

cr  C-  i 

i'i  ■”= 

cr  p  p 

Sh  = 

584 

7  4i  h 

585 

4  3  RCL 

^IRP, 

1  3  1  3 

5  I-;  7 

=;rh 

3  3  INV 

588 

23  LNX 

590 

4. 

581 

fi  •-! 

5  Q 

=;  Q 

3  7  7 

594 

!-•  -1- 

595 

-3  RCL 

59P 

26  2 

591^ 

22  IN  V'' 

=;  Q  C: 

"3  LHP 

599 

^  7 

pnjL! 

4  4 

P  Cl  1 

4^  7 

P  0  2 

fj  •  J 

P 1  j 

i"'  c  C’ 

:  J.  _\  J 

b  t  J  4 

CP  PGM 

P  0  5 

Li  9  !j  9 

P 1  j  P^ 

i  1  R 

P  0  7 

3^  IFF 

P  U  pi 

ij  7  fi  7 

P  0  9 

92  RTH 

p.  1  0 

7  1  SBR 

COMMENTS 


STEP  COOE  key 


COMMENTS 


R27=Y2 
Y2=<|):.3 
for  -Hm 


0  or 


[-w+«.n(-H^)] 

73 


^2=- 

for  ■  0 
m  - 


R26=?,nz+3+.  7 


\134  / 


Limit  check  and  print 
radi us 


"R„ 


If  flag  7  set, 
go  to  Label  RTN 


i  i 
612 
613 
1 4 
6x5 
i  1  S 
6 1  ^ 
1 3 
6  1 3 
620 
6  2 1 
622 
r;  V 

624 

625 
6  2  4: 
62”* 
6  2  i 
4:  4 
4;  3 
63 1 
4. 3  2 
4. 3 

4. 3  4 
6  35 
6  3  6 
4^  ;]■ 

4. 3  0 
6  3  3 
6  4  Li 
64  1 
4:  4 
6  4  3 

644 

645 
6  4 
4:  4 
648 
643 

650 

651 

652 

653 

654 

655 

656 

657 


U7 
il  H 


3  PF;D 

'4  *4 

"  1  E'  R 


ln: 


cr  jT 

•  M 


04 


F  L 

I  rr 
1  r< '  • 
3  IF 

3E:F 

ROl 

i  “t 

L  r  7 ! 
3T0 


E  ■ 

lh:. 

SEP 

7’ 
1  P 
IHV 
LNL 
STO 
1  0 
IFF 

fi 

ij  p: 

Hli'I 
M  1  T 

4 


R26=R26-Rj_ 

Calculation  of  R 
and  Y 

new 

R24-R. 

R24=-^r-^ 


Y  Zihihh 

new(l) 

R10=exp(Y^ew(l)i 


See  Eq,  21 
R24  =  .8(R24) 

1st  time  through  set 
flag  7  (i=l) 

2nd  time  through  reset 
flag  7  (i=2) 

Use  equations  2  or  4 
to  calculation  a  new 

^new(  i ) 


R05  =  Y 


n 


new(  i ) 


''^ne_w(  i_)_ 
'  3‘.  3 


Cal cul at i on 
of  new 

'*'new(  i ) 


If  flag  7  is  set 
go  to  629 


Print  calculated 


L36 


PROGRAM  MEMORY  (LIST) 


[  ■ 

i 


Appendix  A: 


i 


CROM  A1  Demonstration 


I 


DNA  AP-550  CONTROL  A1  hti 


DEMONSTRATION  PROGRAM  (RST,  R/S) 

SOIL  MEDIUM 

WEAPON  RADIUS 

OFFSET 

SKIP 

START 

YIELD 

HOB 

VN,  K 

ENVIRONMENT 

PROBABILITY 

SOURCE  OF  DATA; 

Defense  Intelligence  Agency,  Physical  Vulnerability  Handbook-Nuclear 
Weapons  (U ) ,  AP-550-2-2-69-INT,  June  1,  1969,  Part  IV. 

DESCRIPTION; 

A.  Objective 

The  objective  of  this  magnetic  card  auxiliary  program  is  to  provide  a 
quick  demonstration  of  the  AP-550  CROM  A1 ’ s  calculational  capabilities. 
The  PC-100  printer  must  be  attached  for  execution  of  this  program.  After 
program  initiation,  the  five  representative  calculations  given  below  are 
performed  consecutively  without  pause. 

1.  Probability  of  damage  and  weapon  radius  to  a  circular 
normal  P-target  at  the  optimum  height  of  burst,  or  if 
the  user  inputs  a  height  of  burst,  probability  of  damage 
and  weapon  radius  at  a  given  height  of  burst;  or  the 
probability  of  damage  to  a  circular  uniform  tarcjot  if 
the  user  inputs  a  weapon  radius. 

2.  Weapon  radius  for  personnel  targets  at  a  specified 
height  of  burst. 

3.  Minimum  Safe  Distance  for  troops  or,  if  an  offset  is 
provided,  probability  of  not  exceeding  the  acceptable 
weapons  effects. 

4.  Crater  radius  at  the  optimum  height  of  burst. 

5.  rjeapon  radius  and  probability  of  dam.uje  -  Ifl'A,  cratc'r 
radius  method. 

B .  I  n^)u  t  s_-Ou  tjju  t  s 

This  program  may  be  executed  without  entering  any  of  t  lie  input  d.itu 
(see  example).  If  the  user  cht^oses  this  option,  the  default  valut'S  liste( 
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in  Table  4  will  be  used.  These  values  can  be  chanqod  by  onterinq  data  in 
the  appropriate  override  keys  also  listed  in  Table  4. 

C .  Limits 

Limits  can  be  found  in  the  descriptions  of  the  proqrams  run. 

D .  Special  Features 

Up  to  two  calculations  can  be  skipped  by  onterinq  their  numbers  on 
key  Ind  D'.  Numbers  can  be  entered  in  any  order.  The  numberinq  scheme’ 
is  one  through  five,  with  one  being  the  first  calculation  run,  five  the 
last . 
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Tabic  4  . 


List  of  dcfauit  vaiuos  and  override  keys. 


Input  Used  in  Alpha-  Default  Stored  in  Override 

_ Calculations  numeric  Value  Register _ Key 


Yield 

1.2. 3. 4. 5 

Y 

30  KT 

10 

Key  A 

Height  of  burst 

1 

H 

Optimum 

* 

Key  B  * 

Vulnerability  number 

1 

V 

16 

30 

Key  C  + 

k-factor 

1 

K 

3 

31 

Key  C  + 

Circular  error  probable 

1,2. 3, 5 

C 

800 

32 

None 

Target  radius 

1 

T 

2000 

33 

None 

Offset 

(for  P-target  damage  prob.) 

1 

X 

800 

34 

None  ’ 

Damage  sigma 

1 

S 

.2 

35 

None 

Weapon  radius 

1 

w 

None 

★ 

Key  2nd 
B’* 

Key  D 

Environment  number 

2 

E 

8 

36 

Height  of  burst 

2,3 

H 

1600 

37 

None 

Probable  error  in  height 

3 

PH 

20 

38 

None 

Troop  disposition 

3 

D 

2 

39 

None 

Troop  vul nerabi 1 i ty 

3 

V 

2 

40 

None 

Acceptable  risk 

3 

R 

3 

41 

None 

Desired  assurance 

3 

P 

.95 

42 

Key  E 

Offset 

(for  troop  safety  prob.) 

3 

X 

None 

★ 

Key  2nd 
C‘  ♦ 

Soil  medium 

4,5 

M 

1 

43 

Key  2nd 
A  ' 

Height  of  burst 

(for  cratering  damage  prob.) 

5 

H 

0 

44 

r\ 

None 

Length  crater  radius  mult. 

5 

LC 

2 

45 

None 

Width  crater  radius  mult. 

5 

WC 

1.5 

46 

None 

Length 

5 

L 

800 

47 

None 

Width 

5 

W 

200 

48 

None 

Aim  point 

5 

A 

1 

49 

None 

*  See  next 

page  for 

footnotes 
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*  Keys  B,  2nd  B',  a'nd  2nd  C  change  the  calculations  performed 

as  follows.  A  height  of  burst  entered  on  key  B  will  cause  the 
weapon  radius  for  the  first  calculation  to  be  calculated  at 
this  height  of  burst  rather  than  the  optimum  height  of  burst. 

A  weapon  radius  entered  on  key  2nd  B*  will  cause  the  weapon  radius 
calculation  to  be  bypassed  in  the  first  calculation.  An  offset 
entered  on  key  2nd  C  will  cause  the  probability  of  not  exceeding 
acceptable  weapon  effects  to  be  calculated  rather  than  the 
minimum  safe  distance. 

+  VN  and  k  must  both  be  entered,  VN  first,  k  second,  both  using 
key  C. 
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PRINTER  OUTPUT  FOR  EXAMPLE  1 

(a) 


PRINTER  OUTPUT  FOR  EXAMPLE  1 


PARTITION 

FLAG 

COMMENTS 

FLAG 

COMMENTS 

479:59 

0,  1, 

2,  7,  9 

1 

Used  by  CROM. 
Suppresses 
CROM's  print¬ 
ing. 

3 

4 

5 

Used  by  control 
program  to  dem¬ 
onstrate  diff- 
ei^ent  capabil¬ 
ities  of  the 
CROM. 

AUTOMATIC 

LIBRARY  MOOULE 

CROM  A-1 

DATA  REGISTERS  FOR  EXAMPLE 

1 

LABELS 

DATA 

REG. 

COMMENTS 

STEP  CODE  KEY 

COMMENTS 

-  . 

Calc.  i> 

Registers 

-  - 

Initializes 

'  =  . 

00  through 

_1  ■  -'1  _ 

Advances 

■ 

print 

29  are  used 

•Optional 

pointer 

by  the  CROM 

(  ca 1 cul a t ions 

- 

- 

Only  those 

;  f  L  : :  ^ 

Stores  Y 

i': 

- 

registers 

■1 7  f  :  _  r 

"  HOB 

- 

used  in  the 

0  -  T  :  7 

"  VN,  k 

-  - 

control  pro- 

-  —  .  .  . 

"  Env. 

;■  J: 

gram  are 

"  Prob. 

' 

noted  here. 

■  ■  r  •  -  ;  ; 

"  Soil 

. 

y 

"  WR 

u. 

HOB 

■:  1  :■  -  ' 

"  Offset 

W,  E,  C, 

M 

1  L=  L  .  ”  _  ^  ' 

"  Skip 

VN,  RS, 

LM 

1  1  r-  ^ 

Optional 

■  ^  5 

-- 

k,  PEH, 

1  ■  -I- 1  1 

Stores  defaul ts 

■-  :^L:. 

•  ~ 

C,  D 

1  -  '-•  tl  * 

Starts  demo 

i 

■_  r 

T,  V,  L 

^  4L-  4  7  P 

Calc.  =2 

1  -  C  = 

X,  R,  W 

•2  1  t;  ^  7' t 

-  ~ 

S,  P,  M 

•I'  -1  _  J  t.  ^ 

±4 

X 

-  r 

?5 

'  L"  " 

'7 

- 

7  ■  ;  7 

t'7 

- 

' 

77  J 

VN  number 

k  factor 

1 

CEP 

1 

fi  _ 

Target  radius 

1 

-  ”  fi , 

Offset 

Damage  Sigma 

C: 

"■ .  r^. 

Environment 

-  '  /  i- 

- 

HOB 

■  ■  = 

PEH 

Troop  disposition 

147 


DATA 


REG. 


COMMENTS 


Troop  vulnerabil ity 
Acceptable  risk 
Desired  assurance 
Soil  medium 

HOB  for  ETA  cratering  method 

Length  crater  radius  multiplier 

Width  crater  radius  multiplier 

Length 

Width 

Aim  point 

HOB  for  weapon  radius  and  prob. 
Weapon  radius 
Offset  for  troop  safety 
Omit  calculation 
Omit  calculation 
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PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE 


Go  to  1/x 

St:-  t  '  ;-tt 

Label  CLR. 

1  1  h 

Resets  two  flags 

used  by  the  CROM, 

stores  10  in  R02 

: '  ^  -1  ”  ■  C  ■ 

for  the  CROM  print 

~  C- 

routi ne. 

^  n  S; 

Label  ADV. 

C’  7  ""  4  }  r  ; 

Moves  paper  ahead 

three  lines. 

1'--  I 

Label  RCL. 

s  -  :  s 

Calls  the  CROM  weapon 

radius  and  probability 

"  "b  ...  E  ^ 

of  damage  calculations 

'  E 

with  a  user-specified 

HOB. 

E-  ’  .  ■ 

Label  STO. 

Calls  the  CROM 

probability  of  damage 

calculation  ^/ith  a 

user- spec i f i ed  weapon 

- 

radius 

J  I-  tr  •  ET 

_ COMMENTS 

Label  A. 

Stores  the  yield 

Label  B. 

Store  a  HOB  for  the 
weapon  radius  calcu- 
1 ati on . 

Sets  flag  3 
Label  C. 

Stores  VN  and  k 


Label  D. 

Stores  environment 

Label  E. 

Stores  probability 

La bel  A ' . 

Stores  soil  medium 

Ta^beTF .  ^ 

Stores  weapon  radius 
for  damage  probabi 1 i ty 
cal cul at  ion 

Sets  flag  4 

Label  C ' . 

Stores  offset  for 
orobabilitv  of 


PROGRAM  MEMORY  (UST) 


STEP 

CODE 

KEY 

COMMENTS 

STEP 

COOE 

KEY 

COMMENTS 

1 J  M  ^ 

C'  T  p 

troop  safety  calculation 

1  4.4 

06 

4 

Li  'r* 

Q  "• 

or  hi 

Sets  flag  5 

i  «-r  L- 

4  4 

'' :  5 

UWr 

7i: 

LBL 

Label  D'. 

14  1 

IJ 

3 

3  as  the  k-factor  and 

- 

13 

T=.  * 

I  4:3 

42 

-3'  ■”  n 

the  acceptable  risk 

1  r-  1 

A-  ;-i 

P  •••:■' 

Stores  two  numbers  for 

1  44 

3-  T 

*:  : 

1  evel , 

^  A 

cr  .-• 

omitting  calculations. 

1  h  f; 

42 

i  4 

*  fi  L- 

'Lri 

1 53-. 

n  g; 

C;  ' 

800  as  the  CEP,  the 

■  ■'!=: 

43 

'-•  L- 

1  5  -L 

00 

u 

offset  (for  P-target 

]  Ut 

.  1 

cr  ,•■■; 

734 

u  u 

Li 

damage  probabil  ity) , 

1  07 

't 

K  'i  \  '\ 

■?  c 

42 

7  P 

and  the  length  (for 

'  M;' 

7t‘ 

LBL 

label  X. 

1  -7=  ii- 

32 

C-  3- 

the  ETA  cratering 

1  Dr 

75 

57 

w2 

C:  ~  r^. 

probabi 1 i ty) , 

*  i  r  ■ 

0t‘ 

iTTF 

Given  a  user-specified 

34 

3^ 

fi  : 

offset  calls  the  CROM 

•  c. 

4  7'‘ 

3  “  n 

-  .  : 

I':  -i 

radius  of  safety  calc- 

1  K-  r  ^ 

4 

4  ”” 

1  '  ■" 

i"  i"; 

ulation, then  the  CROM 

1  cl  I 

i 

■' 

1500  as  the  HOB 

11*^ 

4  2 

i'”T  r”[ 

probability  of  not 

1  bC, 

05 

c; 

(for  weapon  radius 

D4 

exceeding  the  accepta¬ 
ble  risk  calculation. 

I  c- 

55 

V 

against  personnel 
targets  and  radius 

i  y 

-!  CT 

55 

'  r: !" ; 

4  4 

4'  j  U 

of  safety)> 

;  -  L 

Li 

C;  p  p- 

:  47 

nv 

.7 

200  as  the  width  (for 

;  ■-■• 

ill  '"I- 

L-  L  F: 

•  j-r- 

“i 

the  ETA  cratering 

■  ■ 

4o 

1  B’D 

Cj  l”: 

probabil i ty) > 

^  Ot 

3  4 

IT 

r-  T  n 

1  --  1 

4  4 

'  '  5 

I  L 

iin 

1  H 

"  “■  -  - 

52 

...L 

2000  as  the  target 

'  ,'L  ^ 

^33 

s 

1  L^ 

i  ;  ' 

3 

radius , 

1 

•.  “  cr 

■^2 

3,  ~  n 

'  -L-’ 

4  'r 

C'  "*:*  n 

1  .  h 

'3  C' 

■1 

1  0‘- 

i  J  i_: 

3  3 

0.2  as  the  damage 

^  •'•■  L' 

r  r.  ! 

77 

s i gma , 

■  •  : 

rL 

n'~, 

•  Xi- 

-  “ 

-:  ■' 

i 

B 

-  :  - 

3:  C: 

8  as  the  environment 

j  ^ 

4:  1 

.■'■  ~  n 

1  rL 

—  i— 

3  7“ 

number , 

■  7  1^' 

Lii-i 

r':  f— 

J  C 

t 

r- 

:  >_ 

■' 

lBl 

Label  1/x  . 

:  I  - 

3-  __ 

20  as  the  probable 

* 

j 

error  in  height, 

1  ■- 

7  ^ 

:lb 

Clears  pending  opera- 

■  7  - 

-1  2 

.7  —  r- 

•  :  L 

,-.  7' 

3- 

tions 
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Stores  30  as  the  default 

3  - 

2  as  the  troop  dis- 

1^1 

n 

yield. 

•-f 

L_ 

position,  troop  vul- 

1  -i-J: 

1  Di 

1  Cl 

16  as  the  default 

I  DC 
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nerability,  and  length 

I  0 

Cl  1 

1 

VN, 

1  4  1 
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crater  radius 
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STEP  CODE  KEY  COMMENTS  STEP  CODE  KEY 


I  9  Li  4  Li  -  4  ij 

I  c  ■*  .1  • C'  T  n 

1  Q 

mul  ti pi i er , 

240  67  EQ 

■  H  !"i  '‘-H '  •; 

0.95  as  the  desired 

4  ■■-  ^  fi  -f: 

1  r’ t-  Li  4  4 

assurance. 

.  g  JT,  i  1 

L-  L'  L-  1  i 

1  as  the  soil  medium 

2  4  F:  4  4  Ei  ”  u 

2  iJ  1  4  J  4 

and  aim  point. 

fi  fj  1 

1.5  as  the  width  crater 

2  5  s  rs  i  .4 

■’  fi  f-  4 

n  i";  =■; 

radius  multipl ier. 

2  5  O  21  :2  i 

J  -  “  -1,  !■  :  U 

Zeros  the  registers 

^  7.  ■"=  I-  '■ 

for  the  optional 

2  9  i'  44  '4  ~  U 

.  -  -I  -  ■  LJ 

inputs  and  the  calcu- 

V  jj  •  c;  -  e; 

lation  skip  numbers 

2  2  7  12,  ■  4, 

.1  L-  4  " 

Stores  0  for  the  HOB 

-  i-  ;*  T  n 

i  -  4 

for  cratering 

T-,'-  To  ^  :b 

---  '"S 

Label  E' 

—  i=  U 

. .  _  ”  .  .  [T  ' 

Initial! zes 
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Prints  DNA/AP-550 
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omitted  by  copinarino 

^  “  L-  ^ 

1  with  the  contents 

-  -2  ^  ‘  " 

^  4  t  f  1  :■ 

..  ;  4  :  !.  L 

of  R53  and  R54 

^  t_  ■ 

L  :'K  ^ 

■  4^  '^■4 

■■■ 

02  L 

COMMENTS 


Stores  HOB  for  the 
user-selected  HOB 
option 

Stores  weapon  radius 
for  the  user-selected 
WR  option 


Stores  VN 


Stores  k-factor 


Stores  CEP 


Stores  target  radius 


Stores  offset 


Stores  damage  sigma 

If  the  user  input  a 
weapon  radius  go 
directly  to  the 
probabi 1 i ty  cal cul a- 
tion„  If  the  user 
input  an  HOB  use  that 
rather  than  the  OHOB. 
Otherwise  run  the 
weapon  radius  and 
probabi 1 i ty  program 
at  the  OHOB. 
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DMA  AP-550  CONTROL  A1  hti 


ITERATIONS  I  (Pgm.  01,  Input;  RST,  Input,  Run) 


Ax  MULT.? 

A\x  MULT.’ 

Ax  MULT.? 

Ax  mult.? 

n.n  ->  CALC 

REG^.Xj.Ax 

REGg;  x^;  Ax 

REGq.'x^;  Ax 

REGq.Xj;  .Ax 

LOOPS 

_ 

DESCRIPTION: 

A.  Objective 

This  control  program  provides  an  automated  way  of  doing 
parametric  studies  using  the  prograir.s  in  the  CROM .  Input 
variables  may  be  incremented  by  some  specified  ,;iniount  over 
any  desired  range,  with  the  CROM  c-arrying  out  the  calculat  ion 
anew  for  each  incremented  input  value.  Each  ca  1  c'u  1  a t  i on  run 
may  be  set  to  treat  as  many  as  four  variables  parainet  i  :cally. 

With  this  control  card,  Iterations  I,  each  j  a r anu -i  < u’ i  ;’i -li 
input  variable  may  bo  stepped  either  by  adding  an  amount  '  x 
for  each  calculation  cr  by  nniltiplying  the  value  by  a  factor 
Ax  each  time,  as  the  user  wishes. 

The  Iterations  IT  control  jirograro  operates 
similarly  but  stops  through  a  set  of  values  wliich  are  explicitly 
entered,  but  which,  therefore,  need  not  vary  by  any  fixed 
increment . 

D .  ^n  p  u  t_s 

Initial  inputs  (i.e.,  for  the  first  of  the  series  of 
calculations  to  be  run)  are  entered  as  tliey  are  normally  done, 
through  Pgm  01,  following  the  procedures  sot  forth  for  tlie 
particular  calculation  in  the  main  body  of  t))i  s  document. 

Next  is  entered  the  number  of  Vtiriables  to  be  para¬ 
meterized  (spolion  of  as  the  number  of  iteration  "loops"). 

Then,  for  each  such  variable,  the  following  are  entered: 

(a)  the  register  number  storing  its  value,  (b)  the  maximum 
value,  X£,  to  bo  used  for  tliat  variable  in  the  iterations, 

(c)  the  amount.  Ax,  of  the  increment  to  be  used,  and  if 
appropriate,  (d)  the  choice  that  the  increment  Ax  multiply 
the  previous  value  rather  than  be  added  to  it. 

1  Sf. 


ihli  lafiMriliW  i  i  i  i  ^ 


c. 


General  Instruct i f  r. s  for  Data  Fntry 

1.  Press  2nd  Pgm  01. 

2.  Enter  initial  inputs  for  desired  calculation,  following 
format  of  the  particular  CROM  program. 

3.  Press  RST. 

4.  Enter  number  of  loops  desired  (i.c.,  number  of 
parameters  to  be  varied)  with  key  E. 

5.  For  the  first  variable  to  be  parameterized,  enter 
witn  key  A,  in  order: 

a.  Its  storage  register  number,  (R^j^)  (see  Fig.  2), 

b.  The  maximum  value  to  oe  accepted,  (xf),  and 

c.  The  increment  to  be  applied  (Ax)  . 

If  Ax  is  to  be  applied  as  a  multif^lier  (not  added), 
press  2nd  A ' . 

6.  Repeat  step  5  for  successive  variables  using  keys 
B  and  2nd  B' ,  C  and  2nd  C',  etc. 

7.  To  start,  enter  calculation  number  (n.n)  with  key  2n(i  E', 
exactly  as  is  done  in  starting  this  calculation  when 
using  the  CROM  directly. 

D .  Special  Features 

All  values,  REG^,  x^,  and  Ax  arc  retained  after  the  pro¬ 
gram  has  been  run,  and  do  not  need  to  bo  re-entered  unless 
they  are  to  be  changed.  The  number  of  loops  tlcsirtud  (key  E) 
may  be  changed  at  any  time. 

Initial  values  for  the  various  [ai  I'amctc'r  s  ai'o  stored 
accordincj  to  the  CROM's  universal  input  routine  (Pgni  01)  for¬ 
mat.  The  relationship  between  keys  and  storage  retiister  numbors 
is  shown  in  Fig. 


A' 

R15 

B' 

R16 

C 

R17 

D' 

^  RIB 

A 

RIO 

B 

R1  1 

C 

Rl? 

RktI.RM 

Figure  2.  Registt:r  numbers  cor  r  (.'Sjjoivi  i  ng  t  ( j 
input  keys  of  the  CROM  un  i  \-er  ;',,i  1 
input  routine. 


1  0  7 


Keys  D  and  E  sometimes  accept  a  single  input  (e.g.,  crater 
radius),  sometimes  a  dual  input  (e.g.,  VN  and  k).  If  two 
inputs  are  needed,  the  values  will  be  stored  at  the  respective 
register  numbers  shown.  As  an  example,  if  VN  and  k  were  en¬ 
tered  at  key  D,  VN  would  be  stored  in  R19,  k  in  R13.  However, 
if  only  one  input  is  entered  with  key  D  (or  E) ,  the  register 
number  corresponding  to  that  input  is  the  one  underlined  (for 
key  D,  R13;  for  key  E,  R14). 


!:xa>’p:,l-:  si: 


Calculate  the  weapon  radii  for  yields  .1,  1,  10  and  100  KT  for  th<j 
first  throe  environment  cateyories  of  the  personnel  vulnerability  ctxle, 
both  the  surface  burst  case  and  the  optimum  heiqht  of  burst  cases. 

NOTES:  1.  All  initial  values  arc  entered  throuyh  the  universal  input 

routine . 

2.  All  product  options  arc  removed  when  RST  is  pressed.  That 
is,  after  RST,  all  .'.x '  s  will  bo  added  {not  multiplied) 
unless  the  2nd.  A',  2nd  B'  etc.,  keys  are  ana  in  pressed. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

1 

Turn  off,  then  on 

0 

O 

L 

Read  either  side  of  Iterations  I 
card 

1  . 

3 

Ih'epare  to  enter  initial  values 
(per  universal  input  routine) 

2nd 

Pgm  01 

1  . 

4 

Inter  lowest  yield  ( KT ) 

1 

A 

0. 1 

5 

inter  height  of  burst 

0 

B 

0. 

6 

inter  first  environment  category 

1 

C 

1 . 

7 

Return  to  Iterations  program 

RST 

1 . 

8 

Enter  number  of  loops  desired 

2 

£ 

2. 

9 

Enter  register  for  yield  (RIO) 

(see  Fig.  1)  as  first  incrementing 
regi ster 

10 

A 

10. 

10 

Enter  largest  desired  value  for 
yield 

100 

A 

100. 

11 

Enter  increment  in  yield 

10 

A 

10. 

1? 

Select  multiplying  option  for 
first  (yield)  loop 

2nd  A’ 

10. 

13 

Enter  register  for  environment 
categories  as  second  incrementing 
loop  ( i  .e. ,  REGg) 

12 

B 

12. 

14 

Enter  largest  desired  value  for 
environment  catenory 

3 

B 

3. 

15 

Enter  increment  to  environment 
category 

1 

B 

1  . 

16 

Initiate  run  for  surface  burst 

case 

4 

2nd  F' 

0. 

1 7 

Initiate  run  for  the  optimum  HOB 

PRINT 


SC'O  priiitcr 
ou  l;uj  t 

SCO  printCM' 


PRINTER  OUTPUT  FOR  EXAMPLE  #1,  STEP  16 


1 
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[MUSTER 


OL’T!  UT  FOR  EXAMPLE  #1,  STEP  17 
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1 


I 


PARTITION 


COMMENTS 


COMMENTS 


239.89 

AUTOMATIC 

LIBRARY  MODULE 

0,1, 2, 7, 9 

3-6 

1  Used  by  CROM 
Product 
options 

CROM  A-1 

DATA  REGISTERS  FOR  EXAMPLE 
A  REG. 


_ COMMENTS 

Program  n.m 

^  Used  by  CROM 


LABELS 

KEY 


^  Poi n 


ter  registers 


)Universal  input 
routine  registers 


Used  by  CROM 


Pointers  to  registers 
to  increment 


I  Final  val ues  of  i n- 
I  cremented  parameters 


COMMENTS 

bet  up  poif^ter 
regi sters 
Stack  manipu¬ 
lation 

Enter  initial, 
final,  and 
i nc  remen t 
va 1 ues . 

Number  of  1  oops 
Initiate  cal c .  i 
Set  option  for! 
iiiul  ti  pi  i  ca¬ 
tion  into 
real sters . 


DATA 


REG. 


COMMENTS 


Increment  values  of  parameters  to 
increment 


Temporary  storage  used  by  Program  0. 
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PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE  KEY 


COMMENTS 


C!ia  !i 


DESCRIPTION : 

A.  Objective 

This  maqnetic  card  proqram  also  ;  a  <  n/ i  a<  cs  lor  ipU'  c.j  1  l-u  1  a  1 1  (.a.s  , 

varying  selected  inputs.  This  proqr  ani  niore  cb'sely  Miatclv's  thi.-  CHOMs  :  :i 
routine  than  does  Itt'rations  T.  Here',  t  he  vai  lables  are'  .spt  ci:  h  u  i-xa.-t 
and  need  not  vary  by  some  f  ixc'el  incrennent.  I'or  <,xam;,le,  yield  can  taru,. 
values  of  1,  10,  00,  100  and  000  KT.  U'he'n  the.'  prc'qram  is  sc/lenMe  d  t  ;  i 
it  will  perform  the  sclcK:tc;d  calculations  five  times  -  once'  for  e'uch  y  i . 
To  obtain  the  results  of  tht'se  calculations  the  calculatcjr  must  be  atfac 
to  the  printer.  If  not,  the  program  will  run  and  simply  disjjleiy  the  res, 
of  the  last  calculation.  All  othc'fs  will  have'  been  run  but  not  rc'corch'd 
or  stored. 

Up  to  five  different  variables  ntay  bet  ejiven  multiple  values.  Whe-ti 

the  prociram  is  executed,  all  possible'  combinations  of  the;  values  will  b>e 

used  as  inputs  for  the  calculations.  'I'he  number  of  calculations  pc'rfoi:ii 

rises  (juickly  as  more  variables  arc'  <jiven  values.  Assume  that  live  dit- 

fe'rent  variables  arc-  each  <nven  four  different  values.  The  calculator  w 

then  attempt  to  perform  a  calculation  for  all  the  combinat  icuis,  which 

y 

eiuals  4  or  1024  calculations. 

This  lar()o  number  rc'ejuires  a  long  calculator  runniiia  tiii!o.  i* 
thoso  calculations  arC'  ne'cdc'd  ,  it  is  lu'ctcjmmi 'iide'd  that  the  user  time 
ow  ■  alculations  to  de’termjne  whin  the'  calculator  wi  1  1  st'jp.  It  1 
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the  machine;  at  that  point,  the  procedure  for  entering  data  and  starting 
the  calculations  is  exactly  the  same  as  for  normal  CROM  operation. 

B.  Inputs 

The  inputs  required  for  any  series  of  calculations  arc  those  gi'.n'n 
in  the  main  body  of  this  document,  which  also  descriijen,  the-  limits  ii'ipc, 
by  the  CROM  calculations. 

For  those  inputs  which  will  take  different  value's  in  the  ceursi,-  <<: 
these  multiple  calculations,  the  user  will  enter,  in  resp'ense  to  a  "pro 
by  the  machine,  the  stora'ie  register  number  cor  resp'C.nd  i  n  ;  to  that  Paria 
The  card  face  shows  the  rcLjuired  registitr  numbt'r(s);  it  is  sh'  ai  at  tip 
key  position  at  which  that  value  is  normally  entcrc'J  using  tlie  (’ROM's 
univ'ersal  input  routine. 

Noti'  that  keys  D  and  F  somet  iiiu's  accent  tw<>  innuits.  M  two  incuts 
(vi.g.,  VN ,  k)  are  needed,  the  values  will  b<'  stored  at  the  rcsiunc  t ;  tn  • 
register  numbers.  As  an  example,  if  VM  and  k  wwi'e  enteriui  at  '•.ey  li, 
woul'.l  at  Rlh,  k  at  R13.  !lowevi.'r,  i!  only  one  iiquit  is  ncLch/d  at  key 
or  i:,  *:  h'u  reaister  numlicr  corresponding  to  that  input  is  the  one  under  1 

(ter'  ktuy  b,  HI  I,  for  key  F ,  Hi  4)  . 

C .  F imi  t  s 

liimits  are  imposed  by  the  CROM  on  any  given  call.  When  a  lirot  is 
-'MU'. -eded  ,  the  exc'eded  limit  is  printed  with  an  error  and  oxiculpp,  p  r 
tliat  partieular  C'xannle  I  (urm  i  na  tes .  Control  returns  to  tl'ie  i  i  ein,  t  n  ns 
rfoira:",  which  will  resume  the  exercise  with  the  next  exa-unle. 

d.  '’leneial  I  n  s  t  r  uc  t.  i  (Jiis  for  Data  Fntry 

1  .  ih  '  1  i  side  1,1  of  ■  M  rd 

['(■■■ss  RF/i',  th'cn  R'S,  to  b' ‘g  i  n  <l,ita  ■  nt  ty 

O  in  r ' '  s  pons'  ■  t  r;  p  pi'omp  t  (  g  Rig ; ,  ,  en  i  e  r  ;  ,  :  i  t .  ■  t  n  ,i  .  i 

■  er*  ;  irs*  PariaFli-  t.o  be  assi  Pied  :-.!:l!  ipb  Paiu  s,  . 

ige'SS  R  s. 

4.  After  proi’ipf  (gRTF',  .uiI't  tdr-  nu:::b'r  >>;  ■'alue:;  t..  !,.■ 

1  s s  i  g  Is  ■  1  tint  '.’a  r  i  a b  b  ' .  ■  ’ to  ■  ss  1  . 

F.  /Itt'T  :aei;iipf  tgl";'  I  or  .’R';'  nt,  eT,‘,.|  tin  nt  I  n  t<  p. 

t  a  k '  c i  .  t '  r '  ■  s  s  it  F  .  it <  ■  p.  ■  a  t  tor  » ■ ,  ( <  -  i  j  ■/ .  i  I  1 1 •  ■ . 


6.  After  those  values  are  entered,  machine  will  prompt 
again  (?REG)  for  another  variable.  If  another  variable 
is  to  bo  given  multiple  values,  repeat  steps  3,  4,  and 

5  for  that  variable. 

7.  When  all  multiple-valued  inputs  have  boon  entered, 
press  CLR,  read  side  lb  of  card. 

8.  Turn  to  the  section  of  this  document  that  describes 
the  calculation  being  performed,  enter  the  indicated 
inputs  and  initiate  the  program  by  entering  the  appro¬ 
priate  a.b  code  number  with  key  E'. 


EXAMPLE  ttl: 


Calculate  the  weapon  radius  for  a  10P3  tarcjet  usanq  the-  iLci 
tion  control  proyram  for  the  following  comb i na t j ons  of  inputs; 

Yield  (KT)  =  .4,  1,  4  HOB  =  0,  750,  1000  (ft) 

NOTES: 

1.  See  card  image  at  the  beginning  of  this  description  for  an 
association  of  registers  to  keys. 

2.  Side  la.  automatically  repartitions  the  calculator  to  239.89 
for  the  variable  input  values.  Side  lb.  is  recorded  in  this 
partition  for  program  execution.  If  side  lb.  is  allowed  to 
run  to  completion,  the  calculator  is  automatically  rejiarti- 
tioned  to  479.59  so  that  side  la.  can  again  be  read.  If  side 
lb.  is  stopped  prematurely,  an  on/off  sequence  or  manual 
repartition  to  479.59  is  necessary  to  read  side  la.  again. 
However,  any  side,  once  read,  may  be  exercised  over  and  over 
without  partitioning  difficulties. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off,  then  on 

0. 

2 

Read  side  la  only 

]. 

3 

Begin  program. 

RST 

1. 

"1.  LOOP"  indicates  that  the 
calculator  is  receiving  inputs  for 
the  first  loop.  Yield  normally 
enters  at  key  A,  which  according  to 
the  program  card  is  Register  10. 

Only  a  register  from  10  to  20 
should  be  input  for  t.he  fjrom(jt 
■?RLG. 

R/S 

10.2 

1.  LOOP 
?REG 

4 

Enter  loop  1  register  (yield). 

(See  note  1) 

?PTS  asks  for  the  number  of  loop 

1  values.  The  41  in  the  display 
indicates  the  maxi  muni  number 
allowed.  Yield  has  three  values 
in  this  case. 

10 

R/S 

41 

10.  RE(: 
'd'TS 

5 

[inter  total  numtu’r  of  values  for 
leo()  1.  1  ■_  PT5  •_  41 

3 

R/S 

1 . 

3.  PIS 

1.  ?I’I  1 

6 

Inter  first  yield  value,  PT  1 

.4 

R/S 

2. 

.4  PI  1 

2.  ?PT  2 

7 

Enter  second  yield  value,  PT  2 

1 

R/S 

3. 

1.  I'T  ? 

3.  ?PT  3 

8 

Enter  third  yield  value,  PT  3 

4 

R/S 

4.  PI  3 

9 

Now  the  printer  indicates  that 
loop  2  is  ready  for  values.  HOB 

IS  in  Register  11  from  the  card. 

10.2 

2.  liKil' 

'dd  (> 

1  70 


EXAMPLE  #1  (continued) 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

10 

Enter  loop  2  register,  (HOB) 

11 

R/S 

38. 

11.  REG 

The  38  which  appears  in  the  display 
indicates  the  maximum  number  of 
values  which  may  be  entered  for 

PTS. 

?PTS 

11 

Enter  total  number  of  values  for 
loop  2. 

3 

R/S 

1. 

3.  PTS 
:.  ?PT  1 

12 

Enter  first  HCB  value,  PT  1 

0 

R/S 

2. 

0.  PT  1 

2.  ?PT  2 

13 

Enter  second  HOB  value,  PT  2 

750 

R/S 

3. 

750.  PT  2 

3.  PI  3 

14 

Enter  third  HOB  value,  PT  3 

1000 

R/S 

10.2 

1000.  PT  3 

3.  LOOP 
?REG 

15 

Press  CLP.  Re^d  side  lb.  (see 
note  2.)  The  calculator  now  acts 
as  though  in  Pgm  01 . 

CLR 

1. 

16 

Enter  VR 

10 

D 

10. 

17 

Enter  k-factor 

3 

E 

3. 

18 

Initiate  calculations 

2.4 

2nd  E‘ 

See  Printer 
Output 

_ _ 

_ _ _ _ 

.  _ _ 

PRINTER  OUTPUT  FOR  EXAMPLE  #1: 


PRINTFR  OUTPUT  FOR  EXAMPLE  #1  (continued) 


PARTITION 


AUTOMATIC 

LIBRARYMODULE 

CROM  A-1 

DATA  REGISTERS  FOR 
DATA 


FLAG  COMMENTS  FLAG  COMMENTS 

0,1, 2, 7, 9 

Used  by  CROM 

EXAMPLE  _ t _ 

REG.  COMMENTS 


LABELS 

STEP  CODE  KEY  COMMENTS 


Side  a 


Pointer  registers; 
also  used  by  CROM 


Parameter  loopj 
Da ta  point  1  oop' 


I 


Universal  I/O 
registers 


I 

1 


Used  by  CROM 


Temporary  storage 


Side  b  ' 

Unpacker 
Initiate  calc.:' 
5th  parameter  I 
4th  parameter  i 
3rd  parameter  ; 
2nd  parameter  ! 
1st  parameter  ! 


Universal 

I/O 


R.34-R30; 


Pointers  to  registers 
for  parameters  to 
V  a  r  V 


1  7  4 


SIDE  la 


PROGRAM  MEMORY 

(LIST) 

STEP  CODE 

KEY 

COMMEIMTS 

STEP 

CODE  key 

COMMENTS 

- 

Sta  rt 

1  -  . 

- 

"LOOP" 

0 1 art  i no 

■ 

1  i'H' d  t  i  I'H 

of  ti,-.- 

set 

■  ;  : 

data 

'  —  • 

diiirbpr  0^ 

troe  data 

noi  rits 

■  -  1 

1 

r('l>art:i  tio 

n 

■■  -  - 

- 

- 

■'ointiM'  to 

real ster 

1 

j 

_ 

tp.  i  110  n 

nii'ber  ot 

1 

■ 

1,1(11  nts  an 

d  their 

- 

poi ntec 

.  r  “ 

"TREG” 

Po i nter  to 

po  i nters 

of 

regi sters 

to  increment 

- 

1 

• 

-■ 

Loon  ccdint 

e  r 

~~ 

1 

Label  x". 
Begin  loop 

‘  --  : 

1 

■  V 

'  -  1 

10.2  in  display 

I  Read  i th  regi slur 

i 

P(.  inter  to 

data  poi 

nts 

-  :  . 

1 

i 

to  fie  oto 

red 

-  - 

Store  poi  nt.er  to  i  t  h 

1 

j 

■  ’ 

regi ster 

Data  point 

counter 

PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE  KEY 


COMMENTS 


"?PTS" 


Read  number  of  data 
points  that  are  assoc¬ 
iated  with  ith  regis¬ 
ter 

Counter  to  number  of 
data  points 


Calculate  al phanumeri cs 
for  "PT  L" 


Pack  information 


Store  pointer  to  start 
ing  location  of  regis 
ters  for  next  set  of 
data . 

Label  /x. 


_ SIDE  lb _ 

PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


_ COMMENTS _ 

Label  INT. 

Unpack  number  of  points 
in  nth  loop 


STEP  CODE  key 


COMMENTS 


LABEL  E' .  start  calc. 


Pgm  n.m. 


Label  CE. 

Set  up  fourth  looping 
regi ster 


Store  data  point  of 
fourth  loop 


Label  LNX. 

Set  up  fifth  looping 
regi ster 


Store  data  point  of 
fi fth  1 oop 


Label  CLR. 

Set  up  third  looping 
regi ster 


Store  data  point  of 
third  loop 


Label  LOG. 

Set  up  second  loo[)ing 
I  register 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


STEP  CODE  KEY 


COMMENTS 


r  _  _  _ 

Store  data  point  for 

second  loop 

'  ^ 

- 1 

Label  CP. 

-  cr 

- 

Set  up  first  looping 

■  - 

regi ster 

-  ^  c 

Set  up  data  point  for 

■  ^  - 

'  .1  - " 

first  loop. 

:  t  : 

\ 

K.  " 

?  Preserve  R12 

Call  Pgm.  n.m 

- 

1  Restore  R12 

-  -r  “ 

-  -  - : 

-■  : 

.  i  M 

1  ■-( 

4  -  -  ^  n 

...  .  -  J 

Innerino'^.t  loop 
Second  loop 

Third  loop 

Fourth  loop 
Fifth  loop 


Label 


PROGRAM  MEMORY  (LIST) 


KEY 

COMMENTS 

STEP  CODE  KEY 

COMMENTS 

_  1  - 

7  ‘'7  ■  '  “ 

Store  18 

r 

Label  B. 

_ 

Store  11 

..  -f 

Label  C 

* 

-  - 

Store  12 

_  _ 

Label  D. 

” 

R19  =  R13 

:  -- 

R13  =  X 

I 

r  - 

Label  E. 

1 

R20  =  R14 

R14  =  X 

1  - 

Label  A'. 

■  r  - 

Store  15 

Labe'PB^. 

1 

Store  16 

Label  U. 

1 

Store  17 

1 

-  ■ 

Label  D'  . 

' 

AP  P  F  N  D  J  X  C  :  T  N  V 1 ;  R  F  1  ON  5' 

ViVTK  Wcapc^n  Radius  inversion  for  Yield 
Porsonnol  Weapon  Radius  Inx'orsion  for  i'ield 
Cratorinc)  Second  POIi  Calculation 


PAJfc  BLANK -KOT  FI  jui><E2j 


VIMTK  SYSTEM  YIELD  CALCULATION 

1-6  -CALC 
k  FACTOR 

VNTK  SYSTEM  YIELD  CALCULATION 

1:  YIELD,  P-Target  3  WR,  P  5 

2:  YIELD,  Q-Target  4:  WR,  Q  6 


YIELD 

HOB 

WEAPON  RADIUS 

VN 

DESCRIPTION: 

A.  Objective 

This  code  inverts  the  AP-SSO  CKOM's  VNTK  pi  ciijr.jrn  (!.e 
tor  yield  (Y),  given  a  height  of  burst,  a  wi/aiKTn  radius  (V.'!-:), 
vulnerability  number  (VN)  ,  and  a  k-factor.  1  r.put  s  u  i'  i  ntcrc 
with  keys  A-E,  and  a  calculation  is  initial  (Td  by  eiitfuinu  one 
of  six  options  {entered  as  an  integer  betwi-en  1  and  G)  'with  k 
E'.  The  six  options  are; 

1.  Invert  P-target  weap'Oti  r.idius  tMlculal  ion  for  y  i  t.' 1  d. . 

2.  Invert  Q-tamjet  we.ipon  r<n!ius  calculal  i(;n  f  oi'  yii'ld. 

3.  Cal  (’ll  late  weapon  radius,  P-t<irg<'t . 

4.  Cdilculato  wtrapon  radius,  o-tar(|('t. 

5.  Calculate  0[jtiniuiri  HOB  auii  maximuni  'WR,  P-tat>i<'t. 

G .  Calculate  opt  innim  HOB  and  inaxinium  WH,  o-targi't. 

I'h('  weapon  radius  varies  r  i' 1  .i  t  i  ve  1 'y  slowly  with  heiuhts  ol  hu 
belr)w  the  f)ptiir.utn  height  ol'  burst.  Eor  Ihis  reasoii,  a  riinw) 
inversion  of  the  calculation  for  the  hr-iqht  ol  burst  s  not  a 
!ul  and  his  not  been  included.  Instead,  the  ('ROM  calculal  loii 
the  opt  iiTiuni  hei(jht  f’f  bur.st.  may  Dr'  us.ed  to  indicate  'lie  u;  p,  ! 

1  i  mi  t  of  (h’sirafjle  heiijhts  ol  burs.t  . 

B  .  I  nt'Ut  s  -  Out  put  s 

Inputs.:  Yield  (KT)  (except  rijg  i  o,,r)r,  ]  .ajd  ) 

BOB  (It  )  (exeeT)t  op*  ions  and  h) 


WR  (ft) 
VN 

k-f actor 


(except  options  3,  4,  5,  and  6) 


Outputs:  Yield  (options  1  and  2) 

HOB  (options  5  and  6) 

WR  (options  3,  4,  5,  and  6) 

C.  Limits  (appropriate  units  are  kilotons  and  feet) 

Yield:  0.1  KT  <  Y  <  30  MT  (options  3,4,5,G) 

HOB:  0  <  HOB  <  HOB  (options  3,4) 

max  ^ 

whore : 

HOB  =  2308  Y^'^^  exp  (-AJVN/15)  ,  P-target 
max  -j 

HOB  =  the  minimum  of :  900  Y  ' 

m  ^  ^  1  / 

2308  Y  exp 

0  <  HOB  <  optimum  HOB  (options  1,2) 

WR:  (0.1)^^^  W^  i  WR  L  (30,000)^^^  W^ 

where : 

W^  =  scaled  weapon  radius  at  HOB  =  0 
W2  =  scaled  weapon  radius  at  optimum  HOB 

VN :  0  <  AJVN  <  56,  P-target 

0  L  AJVN  1  34,  Q-target 
k-factor:  0  t  k  <  9 


-AJVN/15)  j 


Q-target 


(options  1,2) 


D.  Data  Stor age  I iOcat ion s ,  kxy A1  phanu m C' r J c ■_s 


Vnr i ables 


R('<l  i  sf  er^  AJ  phanunic  r  i  (  s 


Yield  (KT) 

R]  0 

HOB  (ft) 

R1  1 

Weapon  radius  (ft) 

R12 

VN 

R13 

k-f  actc^r 

Rl  4 

Y 


H 

W 

V 


!•; 


EXAMPLE  #1: 


Find  the  yield  necessary  to  produce  a  woa{)on  radius  of 
15,000  ft,  for  a  target  with  a  VNTK  of  10P3.  Assume  a  surface 
burst . 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off,  then  on 

0 

2 

Read  sides  1,  2,  3  of  cards 

1  ,2,3 

1 

Inter  height  of  burst  (ft) 

0 

B 

0. 

4 

Enter  weapon  radius  (ft) 

15000 

C 

15000. 

5 

Enter  VN 

10 

0 

10. 

6 

Enter  k- factor 

3 

E 

3. 

7 

Initiate  inversion  for  P-target 

1 

2nd  E' 

1. 

10.  V 

3.  K 

0.  H 

15000.  W 

Read  yield 

1170. 

1170.  V 

8 

Verify  that  this  yield  will  pro¬ 
duce  a  15,000  ft  weapon  radius 

3 

2nd  E' 

3 . 

1170.  Y 

in.  V 

0 .  K 

15000.  W 

EQUATIONS 
Def initions 
Y  =  yield  (KT) 

II  =  heiijht  of  burst  (ft) 

WR  =  weapon  radius  (ft) 

VN  =  VN  number 
k  =  k  factor 

Yield  inversion  (calculations _ 1  and  2) 

Using  (,  Xq ,  a  and  p  as  defined  below  (equations  23  throuqh  31) 


calculate  first  guess  for  Y  =  as  follows: 

AJVNg  VN  (  1  ■ 

■q  =  .  calculated  using  AJVN^  (equations  23,  20)  (2) 

Y^  =  {WR/(q)^  (3) 

Adjust  VN  usintj  ctjuations  18-22  and  as  yield  to  got  AJVN^  (4) 


(5) 
(0  ) 
{■'  ) 


Adjust  VN  usin<i  oejuations  18-22  and  as  yield  to  qot  AJVN,j  (S) 


-  '  calculated  with  AJVN^  (oc)uations  2  3,  28) 

W  ^  ,  Y 

2  2  2 


(  1  0  ' 


Adjust  VN  using  equations  18-22  and  as  yield;  and 
calculate 


improved  second  guess 


Adjust  VN  using  equations  18-22  and  as  yield;  and  calculate 


(14) 

(15) 

(10) 


NOTE:  If  K-factor  =  0,  then  calculations  begin  with  equation  (12), 

with  AJVN  VN. 


Adjustment  of  VN ; 

For  P-targot,  AJVN  =  VN  4  1 1  nx  (  1 2  ) 

where 


1 

k  1 

f20\  ( 

r 

1 

k  1 

1  /  3" 

f20\^' 

2 

10  1 

Iv)  , 

2 

lo' 

iT) 

4  1  - 


For  Q- target,  AJVN  =  VN  4  8.2-nx, 
where 


(10) 

(20) 


1  RH 


+  1  - 


k 

10 


■"O  10  1  V 

For  I’-tariiCt 

.  ^  eyp  (  7  .  b  ^  -  AJVN/6  }  +  extj  (7.37  -  AJVN  ^  16  ) 

■v' 

"0 


(6  (-  >  2  -  VN/i  3  .  7  ) 
4 


(20  —  -AvJV’N  ) 

AJ  (j  +  3  1  (20-  AJVN ) 


^  for  AJVN  ■  26 


IA2V:.  ^20  ) 


bar  AJVN  2  6 


.  0  f  c.v.;-  .  39  3AJVN  +  9.  3  ■  n  (  .  393.AJVN)  -  3  .  ,r  1 


I'or  '.(-tar  !Ot 

■  -  [oxp  ( 1  3  3  -  1  .  82AJVN)  +  exp  ( 1 2  8  -  1  .  4  AJ  VN  )  :  ^ 

_>x-;p_(_^2  7AJVN  “  -_u  .Aj  )_ 

1  exp  (  .  2  7;AV::'-  ’  -  -  6.5) 


p  -  [  L  r  (AJVN/ 33) ^  1  ^ 

Jalcalations  3,  4,  3,  anc.l  ast'  fhe  x.anc  i  xi 

are  ix  t.iic'  CRFi.'-I  (proer.i:;)  2). 


■■'0 


:  oxp  (-.24  “AJ\'N  )  1  •  '  90  0  -  4  I  0 


a  =  -3  L<x-;t>  (158  -  1.4AJVN)  +  exp  (17 


PARTITION  flag  COWMENTS  FLAG  COMMENTS 


5^;'9.49  1 

1 

0,1  ,?,7,9 

UstKl  by  FROM 

FI, HIS  first 
accol erat ion 

4 

Set  it  S'  t. 
net 

AUTOMATIC 

A 

LIBRARY  MODULE 

CP  (If.’  A-1  1 

in  yield  m- 
vers i on 

_ J 

DATA  REGISTERS  FOR  FXAMPI  F 

LABELS 


A  REG. 

COMMENTS 

STEP  CODE  KEY 

COMMENTS 

:  : 

falc.  index  (lised  by  CROM) 

-  ^  --  ... 

Sale. 

^  l.'sed  by  CRO;’ 

Ai  tier's  aC', 

1 

.  _ 

Calc.  * 

----- 

-•  -  <r.' 

'a-Liusted  to  Vb  (by  CRO!:) 

s  r4-,.-  -  '9  ' 

■  :  ,  ■ 

'1 

.  -  -  '  -  -  -  - 

M  .''.'D 

Stor.-  ,S 

... 

V  1  '  J  k  • 

Y  ( d s  f  i  na  1 1  y  ca  1  c u  1  a  i  '?■  S 

■  -  •  '  ' 

iiOB 

- 

k-i  r 

Vb 

:  - 

k  factor 

'.'IF  (te'SDor,v'v  storage; 

- 

) 

‘■Cl  i.sed 

!  i 


■■■  i  i '  i'-.  t  T  i,o  \;'y 
t''ol  pi'oqrdiii' 
pf.'f  i'  1  ir'i  L  ffu'  VN 


X  AD-A095  830  HORIZONS  TECHNOLOGY  INC  SAN  0IE60  CA  F/6  18/3 

NUCLEAR  WEAPONS  TARGETING*  AP-550*  CROM  Al*  REFERENCE  MANUAL* (U) 

JUN  79  DNA001-78*C-0247 

UNCLASSIFIED  HTI-R-79-125  0NA-5277H  NL 


PROGRAM  MEMORY  (LIST) 


STEP  COOE  KEY 


COMMENTS 


STEP  CODE 


J  ?S  RDV  End  of  routines 


b  LBL  Label  B'  . 

^  B  *  Calculate  a-2 
^  IFF  Flag  4  set  =  Q  target 


P-target  a 


Label  C  , 


Aitken's  acceleration 


WR  WR 


WR  WR 


W2  W^ 

vT  IT 

Wi  w^ 


COMMENTS 


Label  A*. 

Subroutine  to  calculate 
guess  for  Y  and  assoc¬ 
iated  Ws 
Adjust  VN 

Flag  3  set  for  first 
accel . ,  reset  for  2nd 
Ful 1  WR  calculation 
Calculate  a 


Label  D'. 

Adjust  VN  with  present 
yield 
k 


Calculation  of  Y' 


P  target 


PROGRAM  MEMORY  (LIST) 


STEP  COOE  KEY 


COMMENTS 


STEP  CODE 


Label  E'. 

Enter  calc,  number  to 
begi n . 


COMMENTS 


Check  and  print  calcula¬ 
tion  number 
Initialize  for  ST*00's 
in  yield  inversion 


Set  flag  4  if  even 
(Q-target  calc.) 


Repartition 

Remove  input  WR  to  safe 
place 


Yield  inversion 


Rqq ' =  2.4  to  get  CROM 

to  tranfer  to  Pgm.  3, 
print  WR. 

Rq2  =  10  WS  expected  by 
CROM. 


1!R  calculation 


WR  optimum  H  calcula= 
tion 


192 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


P  target 


STEP  COPE  KEY 


240  16  H  ‘ 

241  16  H* 


COMMENTS 


242  18  C'  -^Fina]  Y _ 

243  19  D*  Adjust  VN  with  final 

244  1?  B‘  Calculate  a-? 


WR,  optimum  H  calcula-  245  37  IFF 

tion  for  Q  target  246  04  04 

24?  03  03 

V  ^5  {“j  '  o  i 


WR  calculation 


P  target 


Q  target 


Yield  inversion 


AJVNg  =  VN 

ag-  2 


Calculate  ->■  R^^q 

Skip  first  accelera¬ 
tion  if  k  =  0 


Wi,  Y^ 

W2>  extraneous  "Y^ 
Acceleration 


vQ- target! 


K  L.  L 


1  imit 
checks 


264  04 


{sM- 


Upper  limit  for  VN 


Put  WR  back  before 
getting  stuck  in 
limit  checks! 


193 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY  COMMENTS  STEP  CODE  KEY  COMMENTS 


o  .r. 

•:=  o 

H  S 
£'90 

■7  C 

*' 

T  T 

-•  -I*  i 

01  1 

Zt  •Z‘ 

(30,000)^''^ 

£91 

95 

= 

3  3  9 

01  1 

55 

-1- 

340 

65  x 

Q  y, 

341 

4  3  R  C  L 

£94 

94 

-h  .■■■■  - 

342 

04  04 

295 

Q 

44 

:  i  j  1 

SUM 

00 

*^00 

=  a(a+l)-2 
|o,  -(8.2)^"^! 

343 

344 

36  PGM 
09  09 

29? 

r,  c* 

+ 

max 

345 

13  C 

'P. 

4 

R  C  L 

34*-, 

Oh  h fi 

p  Q  Q 

347 

04  4 

300 

.  ■:  hi 

PGM 

3  4  3 

05  5 

30 1 

fj  Q 

!  i  9 

3  4  9 

: '■*  ^  T 

Print  yield,  rounded 

30£ 

i  J 

C 

350 

43  RCL 

to  3  digits 

3u3 

L-  4 

4 

"k" 

O  c;  1 

10  10 

■£>  U  4 

06 

4. 

36  PGM 

305 

•j  •"« 

1 T 

“f  ^  T* 

09  09 

306 

00 

0 

354 

12  B 

3  U  ? 

hi 

•  J  •  J 

H  2  b  i  U 

308 

iZL9 

9 

356 

10  10 

309 

4 

PGM 

357 

31  RST 

3  1 0 

09 

09 

358 

36  PGM 

3 1  1 

4  “j 

c 

359 

02  02 

Calculation  for  yield 

31£ 

0 1 

1 

360 

19  n* 

inversion,  limit 

•“«  i  •“» 

•_«  i,  •-« 

01 

4 

A 

361 

42  STD 

checks,  Q-target 

314 

4£ 

STD 

3  6  2 

01  01 

* 

opt 

•_«  A  -J 

•J  £ 

0£ 

3  6  3 

36  PGM 

316 

79 

rr 

3  4, 4 

02  02 

“«  i  "7 

A  ! 

3£ 

^  T" 

r  •«  4  1 

365 

17  B' 

a(a+l ) 

<  i-J 

A 

00 

0 

3  3 1> 

42  STD 

3  1 9 

35 

4- 

3  6  7 

00  00 

3  2  Ci 

4 

£ 

"H" 

3  6  8 

n  Pt  'p 

AJVN  max 

.  £  j. 

•""i  ■”* 

•^5 

369 

04  4 

'  iL.  2 

P- 

*  T 

•  I  4  ! 

370 

61  GTD 

■3  ill 

36 

PGM 

02  02 

3£4 

09 

0  9 

■3  f’’  4 

70  70 

3£5 

i 

c 

7  ■' 

36  PGM 

Part  of  Label  B' 

P;  £ 

04 

4 

"W" 

374 

02  02 

bi!  ‘1’ 

£i  ^ 

^  T 

r  ’i  4  5 

375 

3  7  6 

16  R  ■ 

75 

Q-target  a 

compensates  for  CROM's 

330 

04 

4 

1/3 

0  {■  1 

)J  £  £ 

95  = 

adiustment  of  WR  by 
2Yi/3 

“i  •'  4 

i 

06 

65 

h. 

(.1) 

379 

330 

42  STD 

04  04 

333 

43 

RCL 

381 

92  RTH 

334 

00 

ijli 

J  0  2 

49  PPIi 

335 

35 

+ 

3  S  3 

0 1  0 1 
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4:fc  ^  ^  4^  -pk  4^ 


PROGRAM  MEMORY  (LIST) 
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PROGRAM  MEMORY  (LIST) 


STEP 

COOE  KEY 

COMMENTS 

STEP 

CODE 

KEY 

COMMENTS 

480 

94  +/- 

528 

El 

ill 

Q-target  WR  calc. 

481 

36  PGM 

529 

mm 

482 

02  02 

530 

71 

SBR 

483 

?1  SBR 

5:-|i 

■n* 

484 

485 

00  00 

91  91 

CT  -“i 

533 

79 

RCL 

in  Rg3,  W  in  R^^ 

4  8  8 

42  STO 

534 

•e  Cj 

i  =: 

A 

WR  (given) 

48? 

488 

0  1  0  1 

43  RCL 

^^opt 

e  -tc* 

•-*  I*  -J 
c*  •-  ^ 

•j  -r«  b 

►  T 

i  i 

Wi 

489 

11  11 

R  ■-* 

‘95 

= 

490 

491 

55  ^ 

79  X 

C“  -“i  i“i 

O  C« 

539 

nn 

ST* 

00 

*^07  *^09 

492 

95  = 

540 

Ah 

□  P 

493 

45  Y>^ 

541 

20 

20 

494 

43  RCL 

542 

RCL 

4_95 

U  5  05 

/  ^ 

543 

04 

!J  4 

496 

49? 

4  9  8 

95  = 

48  EXC 
04  04 

(^opt) 

544 

545 
546. 

55 

4  A 

RCL 

i  c 

Entry  point  for  first 
guess 

WR 

42  STO 

54? 

5  0  0 

12  12 

a 

548 

3 

5  0 1 

FlfiV 

■!  6  P  G  M 
fi  2  n  2 

549 

'^50 

95 

”t  cr 

= 

vi 

503 

?1  SBR 

a(a+l ) 

551 

?i 

ST  * 

\  i  / 

5014 

0  4  0  4 

552 

00 

00 

505 

O  t'  S 

553 

63 

DP 

506 

55  ^ 

554 

20 

2n 

50? 

43  RCL 

555 

4  4 

STD 

New  Y 

508 

12  12 

556 

10 

10 

509 

?5 

55? 

92 

RTH 

5 1 0 

01  1 

511 

95  = 

a 

512 

49  PRD 

5 1 3 

0  4  0  4 

514 

69  OP 

515 

24  24 

516 

43  RCL 

51? 

12  12 

5 1 8 

49  PRD 

519 

0  4  0  4 

520 

■i  6  P  G  M 

521 

0  2  0  2 

522 

?1  SBR 

Finish  off  WR  ca1c. 

523 

04  04 

524 

6 1  6 1 

525 

6  1  G  T  0 

526 

05  05 

S 7 

“i  “•  •” 

1 
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DNA  AP-550  CONTROL  A1  hti 


PERSONNEL  VULNERABILITY  YIELD  CALCULATION 


WEAPON 

RADIUS 

YIELD 

WEAPON 

RADIUS 

ENVIRONMENT 

^  YIELD 

□IMA  AP-550  CONTROL  A1  htI 


PERSONNEL  VULNERABILITY  YIELD  CALCULATION 

Side  3a  for  HOB^O, 

Side  3b  for  HOB^near-optimum 


SOURCE  OF  DATA: 

Defense  Intelligency  Agency,  Physical  Vulnerability  Handbook- 
Nuclear  Weapons  (U),  AP-550-1-2-60-INT,  June  1,  1969,  Ch.  4. 

DESCRIPTION: 

A.  Objective 

This  code  finds  the  yield  necessary  to  produce  a  specified 
personnel  weapon  radius  for  the  twenty  environments  listed  in 
section  4  for  the  surface  and  near-optimum  HOB  cases.  The 
accuracy  of  this  inversion  of  the  CROMs  program  04  will 
generally  be  within  ±5%,  although  there  may  be  a  few  areas 
with  errors  slightly  larger. 

The  program  uses  two  cards.  The  two  sides  of  card  one  are 
read  into  banks  1  and  2  respectively.  With  the  other  card, 
the  first  side  (marked  3a)  is  read  into  bank  3  for  calculation 
of  the  surface  burst  case,  and  the  second  side  (marked  3b)  is 
read  into  bank  3  for  the  near-optimum  HOB  case. 

For  convenience,  one  can  also,  with  this  card,  exercise  the 
CROM  Personnel  Vulnerability  calculation  in  the  forward 
direction  (i.e.,  finding  WR,  given  the  yield,  etc.),  without 
having  to  call  Pgm  01.  That  calculation  is  begun  through  key  2nd 
E';  done  in  this  way,  the  environment  number  is  retained  for 
successive  calculations. 
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B.  Inputs  -  Outputs 


Inputs: 


Outputs : 


Limits 

Yield: 

HOB: 

Environ¬ 
ment  : 

Weapon 
Radius ; 


Yield  (KT)  (for  calculation  of  weapon  radius) 
HOB  (ft) 

Environment  index 

Weapon  radius  (ft)  (for  calculation  of  yield) 

Yield  (KT) 

HOB  (optimum)  (ft) 

Weapon  radius  (ft) 


0.1  <  Y  <  30,000  KT 
0  <  HOB  <  1000  Y^/^  ft 

Env.  =  1,2, 3,... 20  (see  section  4) 

(limit  is  environment-dependent;  maximum  weapon 
radius  corresponds  to  a  yield  of  30,000  KT,  and 
minimum  weapon  radius  corresponds  to  a  yield  of 
0.1  KT . ) 


D.  Data  Storage 
Variables 


Registers  Alphanumerics 


Yield 

RIO 

HOB 

Rll 

Environment 

R20 

Weapon  radius 

R12 

Y 

H 

E 

W 
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EXAMPLE  #1: 


Calculate  the  yield  that  produces  a  weapon  radius  of  20,000 
ft.  for  the  near-optimum  height  of  burst  case,  for  the  first 
environment  category. 


STEP 

INSTRUCTIONS 

INPUT 

- 1 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off,  then  on 

0 

2 

Read  both  sides  of  first  card, 
and  second  side  of  second  card  (3b) 
(first  side  is  for  surface  burst 
case) 

CLR 

1.2,3 

3 

Enter  environment  category 

1 

C 

1  . 

4 

Enter  weapon  radius 

20000 

B 

20000. 

5 

Initiate  calculation 

E 

547. 

20000. 

1  . 
6540. 
547. 

EQUATIONS 


The  inversions  for  yield  are  done  by  fitting  a  cubic  inter¬ 
polating  polynomial  through  four  values  of  the  weapon  radius 
curve  around  the  point  to  be  inverted,  and  inverting  the  polynom¬ 
ial  for  the  desired  yield.  The  values  for  the  interpolating 
polynomial  are  obtained  from  a  lookup  table,  as  described  below. 

Each  of  the  data  registers  30-47  contains  (in  packed  form) 
weapon  radii  at  every  decade  of  yield  between  1  and  10^,  for 
environment  categories  1-18,  respectively.  Data  on  the  first 
side  of  the  second  card  are  for  surface  bursts,  and  data  on 
the  reverse  side  are  for  optimum  heights  of  burst.  The  weapon 
radius  for  Y  =  .1  KT  is  obtained  from  the  lookup  table  in  Program  4 
(and  is  adjusted  to  y^  (adjusted  weapon  radius)  in  the  optimum  HOB 
case),  thus  providing  information  for  WR  for  values  of  ■ og  Y  = 

-1,  0,  1,  2,  3,  4  and  5.  Four  points  that  "box"  the  desired 
weapon  radius  are  chosen,  so  that  two  are  greater  than  the 
desired  WR,  and  two  are  less  that  the  desired  WR. 


Desired 


These  four  points  define  a  unique  cubic  polynomial, 
which  is  set  up  as  described  below.  Once  these  four  points 
have  been  obtained,  an  approximate  solution  to  tlic  cubic 
equation  is  effected  by  first  setting  up  a  quadratic  equation 
that  interpolates  the  first  three  points  on  the  graph,  and 
inverting  it  for  a  "first  guess"  at  Y,  and  then  expanding  the 
cubic  polynomial  into  a  second-order  Taylor  series  about  the 
"first  series",  and  solving  the  resulting  quadratic  equation. 
This  approximate  inversion  to  the  cubic  polynomial  is  suffi¬ 
ciently  accurate  so  that  there  is  no  significant  deviation  from 
the  true  solution  to  the  cubic  polynomial.  The  polynomial 
itself  approximates  the  data  to  ^  2°,  except  in  the  transition 
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region  around  Y  =  10  KT,  when  it  gets  as  high  as  4-7%.  This 
gives  an  error  in  yield  of  --  5%  normally,  and  -  20%  in  the 
transition  region,  in  some  cases. 


The  equations  for  this  procedure  are  as  follows.  (The 
cubic  polynomial  is  in  £og- tog  space). 

Calling  the  four  points  along  the  abscissa  that  box  the 
desired  weapon  radius  (in  £og-£og  space)  y_2^i  Yqi  '  y2 ' 
the  corresponding  ordinate  points  W_j^,  W^,  ,  then  the 

quadratic  formula  that  interpolates  the  first  three  points, 

fqiy-Y0t=  ^q  ^-^0^  ^^q  ^’^0  ^q  ' 


has  coefficients 


aq  =  _(W_^  +  W^|  -  Wq 

>^q  =  1(^1 -W_i) 

=q  =  ^0 

and  the  cubic  interpolating  polynomial, 

f„(y-yo)  =  a^(y-yQ)3  +  b^iy-Y^j^  +  c^,y-yQi  +d^ 


(2) 

(3) 

(4) 

(5) 


has  coefficients 


a  = 

|!"2- 

+  3W„  -  W  T 

c 

0  -1 

b  = 

i  (W  +  W-, 

1  ~  W.  =  a 

c 

2  1  -1  1 

1  0  q 

c  = 

4(-2W  ,  - 

3W-  +  6Vv\  - 

c 

6  -1 

0  1 

d  = 
c 

W  =  c 

0  q 

(6) 

(7) 


(9) 
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It  is  convenient  to  express  these  coefficients  in  a  slightly 


different  form: 

let  Y  =  2a  =  2b  ; 

q  c' 


W„  =  c  =  d 
0  q  c 


3  -  3a^  -  (Y  +  p)  +  2  |Wq  -  ) 

Calling  y  the  solution  to  the  quadratic  formula,  then 
Si 


—  +  sgn  ( 


-Vr)  - 


2 (a-W) 
Y 


where  V.'  =  ..nWR 


and  the  cubic  polynomial  Taylor  series  expansion  has  the 


forni 


Where  f  and  f '  are  the  first  and  second  derivatives  of 
f,  respectively. 

.et  r  = 

^  l''ql 

Then  using  the  approximation  of  (16), 


/  _  2  j  f  ,  y  I  -  W  ] 

,y  -  y,  I  =  -V  +  sgn  (2iy^  +  ,|  /r  - 


which  gives  the  final  result. 


Yield  =  10" 


If  W  "  V'J^  (=  >6n  WR  at  yield  =  10^  KT)  ,  then  the  yield  is 
approximated  as 


exp  ( tV  -  Wj  ) 


or 


Y  =  10  exp  j^-3  |V'}^  -  W  )  J  , 
setting  as  an  upper  limit  on  WR 
exp  ( W  -  W  _ )  =  3  ->• 


WR  =  exp 
max  ^ 


(Wf  +  i£„3) 


The  more  accurate  approximation  calculates  a  weapon  radius 
given  this  value  of  Y,  and  calculates  a  new  Y  (Yield)  as 


jY  / 


WR 


new 

WR 


). 


or 


newi 


/  WR  \ 

=  Y 

\  WR  / 


(20) 


(21) 


(22) 


(23) 


(24) 


The  last  two  categories  can  be  inverted  analytically  for  yield: 

^t1 


WR  = 


a  +  a  ( Y  -  b) 


(see  Program  4  equations) 


or 


Y  = 


“"wR  ^  -  a 


-1/P 


+  b 


(25) 


(26) 
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The  coefficients  a,  a,  p  and  b  are  packed  in  registers  48 
and  49,  as: 


Class  19 


Class  20 


HOB  =  0  HOB  =  optimum  HOB  =  0  HOB  =  optimum 


PARTITION 

559.49 


AUTOMATIC 


LIBRARY  MODULE 


COMMENTS 

Suppresses 
CROM  printinc 
For  short  or 
long  calcu¬ 
lation 


COMMENTS 


CROM  A-1 

DATA  REGISTERS  FOR  EXAMPLE 


COMMENTS 


LABELS 

STEP  CODE  KEY  COMMENTS 


n-=;  ■  r  •  Retrieve  data 

-■  L  -2  -  =  Retrieve  R02 

"  1  ■  ‘  digits 

2-  :  B=  e-x 

5:^  14  D  f'-(x). 

.  -  quadratic  form. 

o  i  n  Y-> 

'7M  b  WR-. 

95  :  3  2 

00  :  0  E  ^  ->WR 

'j  =  print  output 
5  E  -Y 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


End  of  calculation 


Label  C  .  Retrieve  data 
for  environment  E 


STEP  CODE  KEY  COMMENTS 


Entry  point  for  calcu¬ 
lating  f  '  (x) 


Data  table  for  relevant 
envi ronment 


Label  A' .  Retrieve  R02 
diaits  from  register 
13“ 

(data  unpacking) 


^  LBL  Label  8'. 


Calculate  e' 


Label  D' .  Used  i n 
calculating  f ' (x)  and 
f(x)  (where  f(x)  is 
cubic  polynomial) 


Label  D.  Quadratic 
formula,  to  invert  for 


2  V  . .. 


(f(x) 


f"(x) 


sgn(f'  ' (x))=sgn 


>(x) 


Label  A.  Enter  Yield 


Label  B.  Enter  weapon 
radius 


Label  C .  Enter  envi ron- 
^iient  type 
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•  t  -rt 


207 


cn  -t* ' 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


PROGRAM  MEMORY  (LIST) 


PROGRAM  MEMORY  (LIST) 


STEP  COOE 


480  40 

4  8‘  i  1 3 


KEY 

COMMENTS 

STEP 

CODE  KEY 

I  HD 

528 

on  n 

18 

529 

22 

~i  -H 

J. 

start  of  case  for 

cj  •"  i 

Tj 

Hopf  Listing  for 
surface  burst  case  is 

c;  ■  J  -1= 

c;  'T' 

A  r: 

I  NT 

•I'  i  Li 

shown  after  listing 

fo*"  case 

opt 

cr  "sc; 

^  cr 

1  3 

Packed  data 

c; -.-7 

48  R  C  i 

R  ■ 

S 

1  1  11 

- 

‘  Q 

2  5  ^ 

54n 

- 

i 

!=i41 

y  ••  - 

IHV 

-!  8 

P  F:  D 

Change  number  of  digits 

C* 

02 

to  be  retrieved 

C  A 

IHV 

C  A  C 

.  •  «-p  ! 

i'i  V  8 

hU 

S4A 

n  ..i  .-i 

05 

c  A  ~r- 
‘t  V 

8-,  ^ 

U3 

548 

-3  RCL 

T 

549 

11  ^  X 

■ 

c:  c: 

•55 

IJ 

c;  cr  i 

84  fV 

ij 

1  7  E'  * 

5=;:-; 

-.1  n  T  n 

= 

554 

2  1  I'l  1 

T  D 

c".  c;c: 

1  1 

H 

558 

on  n 

R  ■ 

\ 

c;  cr  -? 

'•  1 

R  ■ 

c:  cr  O 

c;  „ 

559 

92  RTH 

IHV 

LOG 

^  unpack  Yq 

\J 

-f- 

CE 

Start  of  calculation 

for  y' 

i  E 

r'l  < 

c 

J 

H 

COMMENTS 


y 


0 


Indicator 

that  H  . 
opt 


memory 


to  program 
case  is  in 
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PROGRAM  MEMORY  (LIST) 

STEP  CODE  KEY 

COMMENTS  STEP  CODE 

KEY 

COMMENTS 

Program  for  H0B=0 


Retrieve  packed  data 


Unpack  Yq  = 


I  Indicator  to  program 
/  that  surface  burst 

7  case  is  in  memory. 


5  i  4  0  U  U 

00  0 
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DNA  AP-550  CONTROL  A1  hti 


CRATERING,  2nd  DOB  CALCULATION 


7.n  —  CALC 

YIELD 

HOB 

MEDIUM 

_ 1 

CRATER 

RADIUS 

—  2nd  DOB 

SOURCE  OF  DATA: 

Defense  Intelligency  Agency,  Physical  Vulnerability  Handbook  - 
Nuclear  Weapons  (U) ,  AP-550-1-2-69-INT,  June  1,  1969,  Part  II. 

DESCRIPTION: 

A.  Objective 

Program  7.1  of  the  AP-550  CROM  calculates  the  upper  of  two 
depths  of  burst  of  yield  Y,  which  will  produce  a  crater  of  a 
specified  radius,  (R) ,  in  the  designated  earth  medium,  (M) . 
This  control  program  calculates  the  greater  of  the  two  depths, 
and,  for  convenience  in  comparison,  will  exercise  program  07 
if  desired.  Keeping  with  the  convention  established,  a  depth 
of  burst  is  referred  to  as  a  negative  HOB. 

B.  Inputs  -  Outputs 

The  user  enters  the  weapon  yield,  (Y) ,  crater  radius,  (R) , 
and  medium  number,  (M) ,  corresponding  to  one  of  these  media: 

Dry  rock  (M=l) 

Wet  rock  (M=2) 

Dry  soil  (M=3) 

Wet  soil  (M=4) 

Inputs  may  be  entered  in  any  order. 


The  program  includes  limits  for  all  entered  values: 


0. 

1 

< 

Y 

<  30,000  KT  1 

r  U.L. 

1  U.L. 

=  151(Y)0-3 
=  172  (Y) 

for 

for 

M=1 

M=2 

1 

< 

M 

< 

I 

1  U.L. 

=  159  (Y) 0- 3 

for 

M=3 

0 

< 

R 

< 

upper  limit  (U.L.)  ' 

1  U.L. 

=  210 (Y) 0- 3 

for 

M=4 

After  the  calculation  is  initiated,  the  program  checks  each 
value  against  its  limits  and  prints  the  value.  If  a  limit 
is  violated,  the  calculator  stops  printing  the  inputs  and 
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flashes  the  exceeded  limit  in  the  display.  The  input  value 
is  printed  with  a  question  mark  and  put  in  the  t-register. 

To  re-enter  an  acceptable  value,  press  CLR  and  re-enter  the 
new  value  into  the  appropriate  key.  Then  press  R/S  to  start 
the  calculation  over. 

The  calculation  can  be  started  by  pressing  key  E  or  R/S 
after  the  appropriate  data  is  entered. 

C.  Special  Features 

The  five  cratering  calculation  options  given  in  Section  7 
of  this  document  can  also  be  run  by  entering  rhe  appropriate 
calculation  number  in  key  2nd  E'.  The  program  leaves  the 
calculator  in  the  radian  angular  mode. 

D .  Data  Storage  Locations  and  Printer  Alphanumer ics 

The  user  may  find  the  following  information  in  the  indi¬ 
cated  registers. 

Variable  Register  Alphanumerics 

Yield  RIO  Y 

Medium  R12  M 

Radius  R13  R 

HOB  Rll  H 
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EXAMPLE  #1: 


Find  the  greatest  depth  of  burst  (a  negative  HOB  means  a  dis¬ 
tance  below  the  ground)  for  which  a  10-KT  weapon  will  produce  a 
crater  radius  of  315  feet  in  wet  soil. 


Compare  this  to  the  DOB  nearer  the  surface  at  which  the  same 
weapon  will  produce  the  same  crater  radius. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

1 

Turn  off,  then  on 

0 

2 

Read  one  side  of  program  card 

1  . 

3 

Enter  yield,  Y  (KT) 

10 

A 

10. 

B 

Enter  crater  radius,  R  (ft) 

315 

D 

315. 

m 

Enter  medium  number  (l=dry  rock, 
2=wet  rock,  3=dry  soil,  4=wet  soil) 

4 

C 

4. 

1 

Calculate  the  DOB  (ft) 

E 

10.  Y 

4.  lY 

315.  R 

-447.  H 

7 

Calculate  the  upper  DOB  (A) 

7.1 

2nd  E' 

_ 

-72.4 

7.1 

10.  V 

4.  K 

315.  R 

-72.4  H 

PRINTER  OUTPUT: 


10. 

4.  H 

15.  P 


-447. 


H 


7,  1 
10. 
4. 
315. 


I 

n 

F' 


-  7  *1 .  4 


H 
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EQUATIONS 


DoEinitions 
Y  =  Yield  (kilotons) 

HOB  =  Height  of  Burst  (feet) 
R  =  Crater  Radius  (feet) 


Define  z 


z  =  arc  sin 


,0.3 


+  d 


=  -3 . 3 ( Y) ^ ■ ^exp 


Then  HOB 
Tlie  coefficients  are: 


a  -  (z) 


20/3 


Coo  f  f icient 
a 
b 
c 
d 


Dry  Rock 
150.0 
37.0 
6.02 
1.0 


Wet  Rock 
153.0 
36.0 
5.15 
0.0 


Dry  Soil 
117.0 
25.0 
5.0  7 
0.0 


NOTE: 

Equation  (2)  is  an  analytic  inversion  of  the  c 
curve  fit  equation: 
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PARTITION  FLAG 

^79.59  Not  used 

AUTOMATIC 

LIBRARY  MODULE 

CROM  A-1  I 

DATA  REGISTERS  FOR  EXAMPLE _ 

DATA  REG. 


COMMENTS 


COMMENTS 


COMMENTS 


LABELS 

STEP  CODE  KEY  COMMENTS 


:  nn 

n  .n 

^  :  s  “T  :  1  :  ! 

Temp 

'■  M  '1= 

Temp  , 

Temp 

i  i_l  1  S  1  i  1 

Temp 

5  i_!  hi 

Temp  1 

fi  -  Q  9 

Y 

”  1—  s  "t  11 

H 

4=  14 

M 

fl .  14 

R 

Li  =  1  b 

Temp 

-  4 ,  4 ,  -  n  M  “  9  ^  ■“  ^ 

Temp 

1  ■  'J'  4  r,  •  [_i  r:  4  95 

Temp 

.  Li  i:i  L!  0194  4  1  24. 

Temp 

PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


COMMENTS 


Upper 

Limit 

for 

radius 

M  =  1 

Upper 

Limit 

for 

radius 

M  =  2 

Upper 

Limi  t 

for 

radius 

M  =  3 

Upper 

Limit 

for 

radius 

M  =  4 

Label 

A' . 

Call 

Pgm  7 

Unpa 

cker 

STEP  CODE  KEY _  COMMENTS 


Reset  flags  0  and  1 


-2  RT 
^6  LB 
15  E 


Label  A. 

Store  yield  in  RIO 
Go  to  Label  WRT 


Label  C. 

Store  medium  in  R12 
Go  to  Label  WRT 


Label  D. 

Store  radius  in  R13 
Label  WRT. 

Remove  scientific  and 
fixed  notation  from 
display. 

Label  E. 


3  flL 
1  1 


Store  10  in  RO? 


Call  yield  limit 
checker  and  printer 


Add  1  to  R02 

Cal  1  medium  limit 
checker  and  printer 


4  V  M  .  4 

Store  in  R?1 

Limit  checks  for 
radius 

Lower  Limit  =  0 

Alphas  for  "R" 

Call  radius  upper 
limit 

Take  ILL.  ^  ^ 


Check  limits  and  print 
radius 


Begin  calculation 
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PROGRAM  MEMORY  (LIST) 


STEP  CODE 


COMMENTS 

STEP  CODE  KEY 

COMMENTS 

165 

144  55  - 

+ 

i  4  D  _  5  5 

22 

I  4  ‘i’  c  1  f  '-i 

Call  the  routine  to  get 

1  4  4  i_  }■ -i  v; 

the  coefficient  string 

150  :=  c:  P  Q  M 

Call  routine  to  finish 

containing  a,  b,  c  and 

151  Cl  7  07 

eq.  2  and  print  small¬ 

d 

152  ■’1  SER 

er  HOB 

R02  =  3 

1  .  J  i-l-  y-  j 

Call  unpacker  to  get  a. 

156  Hliv 

R24  =  a 

Call  unpacker  to  get  b. 

15-  69  HDV 

158  62  RTH 

159  61  GTD 

Will  do  calculation 

R25  =  b 

160  15  E 

again  when  R/S  pressed, 

161  56  LBL 

Label  E*. 

Call  unpacker  to  get  c. 

162  10  E  " 

1  v  3  g,  p  Q  M 

Call  AP550  INPUT  Pgm. 

put  c  in  t  register 

164  ui  01 

to  begin  calculation. 

165  1 0  E  ' 

1 6  6  92  R I N 

Calculation  of  eq.  1 

16?  76  LBL 

Label  B. 

ibc  i  -  B 

169  4  2  S  T  0 

170  11  11 

171  92  RTH 

Store  HOB  in  Rll 

z  in  display 
Calculation  of  eq.  2 
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PROBABILITY  OF  DAMAGE  TO 
IRREGULARLY  SHAPED  TARGETS 
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1  1  i  i  :fi  mmm  2 

■ 

PROBABILITY  OF  DAMAGE  TO  IRREGULARLY  SHAPED  TARGETS 


CEP 

TARGET 

RADIUS 

OFFSET 

DAMAGE 

SIGMA 

ANGLE 

SIDE  1 

WEAPON 

RADIUS 

LENGTH  OR 

SIDE  2 

■SSESililifl 

□NA  AP-550  CONTROL  A1  hti 


PROBABILITY  OF  DAMAGE  TO  IRREGULARLY  SHAPED  TARGETS 


SOURCE  OF  DATA: 

Defense  Intelligence  Agency,  Physical  Vulnerability  Handbook  - 
Nuclear  Weapons  (U) ,  AP-550-1-2-69-INT,  June  1,  1969,  Part  IV. 

DESCRIPTION: 

A.  Objective 

The  objective  of  this  program  set  is  to  provide  calculations 
of  average  probability  of  damage  for  rectangular,  triangular 
and  elliptical  targets  with  uniform  target  element  distributions 
These  programs  use  the  Probability  of  Damage  to  Point  Targets 
CROfl  program  as  a  subroutine.  The  weighted  point  method  is 
used  and  therefore  target  size  limitations  must  bo  imposed  to 
ensure  accuracy.  The  limitations  are: 

Triangular  target:  longest  side  <  CEP 

Rectangular  target:  diagonal  <  CEP 

Elliptical  target:  major  axis  £  2  >  CEP 

If  target  dimensions  are  greater  than  the  limitations  im¬ 
posed  above  then  the  general  case  method  for  area  targets  should 
be  used  to  compute  the  Pd.  This  method  requires  that  the  area 
target  be  divided  into  small  cells  of  equal  area  whose  greatest 
dimension  is  less  than  or  equal  to  1/4  of  the  CEP.  Each  coll 
is  then  considered  a  point  target  and  the  Pd  to  each  cell  is 
computed  using  the  point  target  program  with  an  offset  equal  to 
the  distance  from  the  DGZ  to  the  center  of  each  coll.  The  Pd 
to  the  whole  area  target  is  then  obtained  by  averaging  the  Pd 
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to  each  cell.  To  implement  the  general  case  method  for  area 
targets,  the  user  must  use  program  3.0  and  then  manually  com¬ 
pute  the  average  Pd. 

B.  Input's  -  Outputs 

The  three  calculations  comprising  this  program  set  and 
their  necessary  inputs  are  as  follows.  Figure  '  gives  a 
graphical  representation  of  the  inputs. 

Program  3.3:  Probability  of  damage  -  rectangular  targets. 

Inputs:  Offset  of  the  DGZ  from  the  target  center,  (x)  ft. 

Angle  between  offset  line  and  length,  (A)  deg. 
Target  length,  (L)  ft. 

Target  width,  (WD)  ft. 

Program  3.4:  Probability  of  damage  -  triangular  targets. 

Inputs:  Offset  of  the  DGZ  from  the  "offset  vertex",  (x)  ft. 

Angle  between  offset  line  and  side  SI,  (A)  deg. 
Lengths  of  the  three  sides,  (SI,  S2,  S3)  ft. 

Note:  Sides  SI,  S2  and  S3  are  defined  by  moving  cloclc- 

wise  from  the  "offset  vertex";  which  is  the 
triangle  vertex  to  which  the  offset  distance  (x) 
is  measured.  (see  figure  3) 

Program  3.5:  Probability  of  damage  -  elliptical  targets. 

Inputs:  Offset  of  the  DGZ  from  the  target  center,  (x)  ft. 

Angle  between  offset  line  and  major  axis,  (A)  deg. 
Length  of  major  axis,  (L)  ft. 

Length  of  minor  axis,  (WD)  ft. 

C .  Limits 
Rectangular  targets: 

?  2  1/2 

Length  (L)  :  WD  <  L  <  (CEP  -  WD  )  ^  ft. 

Width  (WD)  :  1  <  WD  <  L  ft. 

Triangular  targets: 

Longest  side  (S) :  1  1  S  L  CEP  ft. 

Elliptical  targets: 

Major  axis  (L) :  WD  <  L  <  2  x  CEP  ft. 

Minor  axis  (WD) :  1  <  WD  <  L  ft. 
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RECTANGULAR  TARGETS 


Desired  Ground  Zero 


Offset  line 


Target  Center 


TRIANGULAR  TARGETS 


A 

offset 

\/ertex 


r\ 


offset  vertex 


offset  line 


Desired  Ground  Zero 


ELLIPTICAL  TARGETS 


Desired  Ground  Zero 


^^^inor  axis^x^^ 
/major  axis 


Line  parallel  to  length 

passing  through  target 
center 


S3  offset 
vertex 


offset 
1  ine 


Desired  Ground  Zero 


offset 

line  ^Desired  Ground  Zero 


Fiqure  3.  Definition  of  input  dimensions  for  various  area  tarqets. 


Input  limits  common  to 
Offset  angle  (A) : 
Offset  (x) : 


all  target  types: 
A  >  0  deg. 

X  >  0  ft. 


CEP: 


CEP  >  0  ft. 


Damage  sigma  (S):  0.1  <  S  <  0.5 

Weapon  radius  (W) :  W  >  0  ft. 


D.  Data  Storage  Locations  and  Printer  Alphanumerics 

The  user  can  find  the  following  information  stored  in  the 
indicated  registers. 


Variables 

Register 

Alphanumerics 

program  no. 

ROO 

— 

angle 

RIO 

A 

triangle  SI 

Rll 

SI 

weapon  radius 

R12 

W 

triangle  S2 

R13 

S2 

triangle  S3 

R14 

S3 

rect.  length 

R13 

L 

rect.  width 

R14 

WD 

major  axis 

R13 

L 

minor  axis 

R14 

WD 

CEP 

R15 

C 

target  radius 

R16 

TR 

offset 

R17 

X 

damage  sigma 

R18 

S 

Pd 

R19 

P 

Special  Features 

The  user  may  run 

the  programs  described 

in  Section  3  of 

this  documentation  by  entering  the  appropriate  program  desig¬ 
nator  (3.0,  3.1,  or  3.2)  with  key  2nd  E'  of  this  control  program. 
If  this  is  done,  a  value  for  the  target  radius  will  be  printed 
for  all  three  programs  even  though  the  value  is  used  in  programs 
3.1  and  3.2  only. 
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EXAMPLE  #1:  Probability  of  Damage  to  Area  Targets 

Given  the  following  information: 

Weapon  Radius  =  400  ft  Offset  =  200  ft. 

CEP  =  320  ft.  Damage  sigma  =  0.4 

calculate  the  average  probability  of  damage  for  the  following  area 
targets . 

(1)  A  240-ft  by  80-ft  rectangle  with  a  53-deqree  angle  between 
the  offset  and  length  lines. 

(2)  A  260-ft  by  100-ft  ellipse  with  the  same  angle  between  the 
offset  and  length  (major  axis)  lines. 

(3)  A  triangle  with  Si  =  100  ft,  S2  =  100  ft,  and  S3  =  100  ft, 
and  a  210-degree  angle  between  offset  line  and  SI  measured 
in  the  clockwise  direction. 


STEP 

INSTRUCTIONS 

INPUT 

KEYS 

DISPLAY 

PRINT 

■ 

Turn  off,  then  on 

0 

■ 

Read  both  sides  of  card  one,  and 
one  side  of  card  cwo 

1.2,3 

H 

Enter  weapon  radius 

400 

C 

400. 

B 

Enter  CEP 

320 

2nd  A' 

320. 

5 

Enter  offset 

200 

2nd  C 

200. 

6 

Enter  damage  sigma 

Target  J_;  Rectangle 

.4 

2nd  D' 

0.4 

7 

Enter  target  length 

240 

D 

240. 

8 

Enter  target  width 

80 

E 

80. 

9 

Enter  angle  betv'een  offset  and 
length  1 ines 

53 

A 

53. 

10 

Begin  rectangular  target  calcu¬ 
lation 

(calculation  takes  1.25  minutes) 

3.3 

2nd  E' 

3.3 

400.  W 

320.  C 

0.  T 

200.  X 

0.4  S 

53.  A 

240.  L 

80.  WD 

0.432 

C.432  P 

Target  2:  Ellipse 

11 

Enter  target  major  axis 

260 

D 

260. 

12 

Enter  target  minor  axis 

100 

E 

_ 

100. 

L  - 

» 

Si.., 
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EXAMPLE  #1  (Cent.) 


STEP 

INSTRUCTIONS 

INPUT 

— 

KEYS 

DISPLAY 

PRINT 

13 

Begin  elliptical  target  calculation 

3.5 

2nd  E' 

3.5 

(calculation  takes  1.8  minutes) 

400. 

320. 

w 

c 

0. 

T 

200. 

X 

0.4 

s 

53. 

A 

260. 

L 

100. 

WD 

0.43 

0.43 

P 

Target  3:  Triangle 

14 

Enter  SI 

100 

B 

100. 

15 

Enter  S2 

100 

D 

100. 

16 

Enter  S3 

100 

E 

100. 

17 

Enter  angle  corresponding  to  the 

number  of  degrees  in  the  clockwise 

direction  between  the  offset  line 

and  SI . 

210 

A 

210. 

18 

Begin  triangular  target  calculation 

3.4 

2nd  E' 

3.4 

(calculation  takes  1.0  minutes) 

400. 

320. 

W 

c 

0. 

T 

200. 

X 

0.4 

s 

210. 

A 

100. 

SI 

100. 

S2 

100. 

S3 

1 _ 

0.416 

0.416 

P 

4 


EQUATIONS 


Definitions 

VJR  =  Weapon  radius 

X  =  Offset 

a  =  Damage  sigma 

CEP  =  Circular  error  probable 

TR  =  Target  radius 

P  =  Probability  of  damage 

Routines  3.0,  3.1  and  3.2 

Initially  the  following  adjusted  values  are  calculated: 

CEP  =  /CEP^  +  kTR^  (1) 

3. 

where  k  =  0  for  point  targets  , 

k  =  0.231  for  circular  targets  with  normal  distribution. 

For  circular  targets  with  uniform  distribution: 
k  =  0.4  v/hen  TR  <  WR  +  CEP  +  x 
k  =  0.5  when  TR  >  WR  +  CEP  +  x 


W1  =  VJR  V  CEP 

3. 

For  W1  <  30,  the  following  curvefit  coefficients  are  calculated: 
b  =26  exp|-2.1c-^j 

a  =  exp  ^1339exp(-42a)  -  2(i  +  (oT?)] 

where  y  =  7000a^ ’ ^ [exp (-2 lo ) {Wl-5 , 5 ) ] 


(2) 

(3) 

(4) 


Rq  =  (3.6a-2)Wl-  (1.3+1.10)  P.n[Wl  (0.24+0)  ] 


;6) 
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L 


=  Wl  -  0 . 2  -  (  B  +  I  B  1  ) 


(221  10  \ 
a  +  2  23/ 

t.  '  =  ■  n  1^0 . 6o  +  i 

where  B  dOo  -  1 .  IWl)  +  exp  |^9 .47a  - 

^  exp(-2.69-0  -  2.7^no] 

T '  =  tan  [b  ( i. '  -f; )  ] 

L'  =  .-n  [  ■  +  !  f  !  +  10~^] 

where  ?  =  ^rT-r — -r 


With  these  coefficients,  the  code  proceeds  to  calculate  the 
probability: 

XI  =  X  :  CEP 

a 

R'  =  3.89  {  i^d^tan[b(Xl  -  r)  ]  ^n  } 

for  XI  >  2,  R  =  -R' 

for  XI  ■  2  ,  R  =  cos  (45X1)  (  Rq  +  ^  +  )  "  R' 

For  Wl  >30,  R  is  given  by, 

R  =  -0.07z^  -  1.6z 


where  z  = 


■  n  [(!-' 


2  WR 
x 


t'n  ( 1-0  ) 


And  finally  to  go  from  the  transformed  R  space  to  the 
probability  P  we  have 


1  +  exp (R) 


Routine  3.3  Average  Probability  of  Damage  to  Rectangular  Targets 
De  f initions 

=  distance  from  the  desired  ground  zero  to  one  of  the  four 
corners  of  the  rectangle. 

A  =  angle  between  the  offset  line  and  length 

L  =  length  of  reciangle 


V.'D  =  width  of  rectangle 

=  average  Pd  to  the  rectangular  target 

For  i  =  1  to  i  =  4 , 


D  .  ^ 

1 

where 


(Sgn 


(XcosA  -  0 . 5gL) ^  +  (XsinA  -  0 . 5hWD) “ j ' 

g  =  sgn [cos ( 90 i+4 5 ) ] 
h  =  sgn [cos (90i-4 5 ) ] 
is  the  siqnum  function.) 


The  follov/ing  table  shows  i,  g  and  h: 


(21) 

(22) 

(23) 


i  1 

q 

_ h_ 

1 

1 

-1 

L 

n 

-1 

-1 

3 

1 

-1 

4 

1 

1 

For  each  D.,  P(D.)  the  orobabilitv  of  damage  to  a  noint  target 

1  1  ■  -  I 

for  the  desired  ground  zero  a  distance  from  the  target  is 
calculated  by  sotting  X  =  in  equations  14  through  20. 

6P(X)  tp(D,)  +  P(D-,)  +P(D.)  +P(DJ 
p  =  - L - 2 - a - _4_ 

10 
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Routine  3.5  Average  Probability  of  Damage  to  Elliptical  Targets 
Definitions 

=  distance  from  the  desired  ground  zero  to  the  corners  and 
midpoints  of  sides  of  an  inscribed  rectangle  in  the  ellipse 

A  =  angle  between  offset  line  and  major  axis 

L  =  length  of  the  major  axis 

WD  =  length  of  the  minor  axis 

=  average  Pd  to  an  elliptical  target 

For  i  =  1  to  i  =  S 

i  /v  -  WD^  \ 

D .  =  ,  XcosA  -  - - I  + 

1  (V  2  / 

where  f  -  sgn  [cos  (45i  +  45 )  1 
j  =  sgn [cos  (45i  -  45) ] 


'.sinA  -  j 


.WD‘ 


2T. 


(33) 


( 34 ) 

(35) 


The  following  table  shov;s  i,  f  and  j 


i 

f 

j 

1 

0 

1 

2 

-1 

1 

3 

i  -1 

0 

4 

: 

-1 

5 

0 

-1 

6 

j  1 

-1 

7 

[  1 

0 

8 

1  1 

1 

4 [P (X) +P (D^)+F (D^) +? (D^) +P (D^) ]  +  P (D^) +n (D^) +P (Dg) +P (Dg) 

_ 


(3G) 
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PARTITION 

559.49 

_ 

AUTOMATIC 

LIBRARY  MODULE 

CROM  A-1 


COMMENTS 


COMMENTS 


See  Pgm ,  3 
A1  CROM  flags 


DATA  REGISTERS  FOR  EXAMPLE 


COMMENTS 


Program  no. 

W1 

Print  Routine  Ind.  Reg. 
CEP, 

Temp 

Temp 

Temp 

Temp 

Temp 

Temp 

A 

51 
WR 

52  or  L 

53  or  WD 
CEP 

TR 

X 

Damage  Sigma 
P 

Temp 


b 

a 

T' 

L' 

Temp 

Registers  29  through  49 
unused 


LABELS 

KEY  COMMENTS 


Enter  angle 
Clear  format 
Triangl e  calc. 
Limit  checks 
Calc.  3.0,  3.1, 
3.2 

Cosine  law 
Distance  calc. 
Calc.  p(Di) 
Limit  checks 
Rectangle  calc, 
Rectangle  calc, 
Print  P 
El  1 i pse  calc . 
Ell  ipse  calc. 
Enter  SI 
Enter  WR 
Enter  SZ  or  L 
Enter  S3  or  WD 
Enter  CEP 
Enter  TR 
Enter  Sigma 
Enter  x 
Flag  7  check 
Advance  paper 

Program  stops 
here 

Begin  calc. 
Print  angle 
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PROGRAM  MEMORY  (LIST) 

STEP  CODE  KEY 

COMMENTS  STEP  CODE 

KEY 

COMMENTS 

Label  A. 

Store  angle  1n  RIO 


Label  WRT. 

Remove  FIX  and  Scien¬ 
tific  display  formats 


Option  to  run  same 
calculation  with  R/S. 
Put  3.n  in  display 
Go  to  Label  E' 


Label  Jx. 

Calculation  routine  for 
triangular  targets 

(Sl)^  +  (S3)^  -  (S2)^ 


Label  OP. 

Printout  and  1 imit 
check  routine  for 
triangular  targets 
routine 

Recall  a1 phanumerics 

put  in  t  register 

Lower  Limit  =  1 

Upper  Limit  =  CEP 

Call  Pgm.  9  to  check 
limits  and  print 
ie 

La  bel  PGM  . 

Call  CROM  Pgm.  1  to  do 
calculations  3.0,  3.1, 
and  3.2 


See  Eqs.  1  through  20 

Go  to  Label  RTN 

Label  COS  . 

Routine  used  in  the 
triangular  targets 
calculation  to  perform 
cosine  law. 

See  eqs.  25,  26  and  27 


G  ; 0  Go  to  Label  GTO 

LBL  Label  P/R. 

F  F  Routine  used  in  the 

4  rectangular  and 

5  elliptical  targets 
calculations  to  calcu- 

i;  f  i  late  Dj 


See  eqs.  21  and  33 


Calculation  of  g  and  h 
(see  eqs.  22  and  23) 
or  f  and  j  (see  eqs . 
34  and  35) 


cd; 

69  DP 


PROGRAM  MEMORY  (LIST) 


STEP  COOE  KEY 


COMMENTS 


STEP  COOE  KEY 


COMMENTS 


K  !_■  L 

9  Li  9 


95  = 

94  rx 


Label  GTO. 

Call  Pgm.  3  to  calculate 
P(D^) 

See  eqs.  24,  32  and  36 

Store  sum  of  P(D. )  in 
R28  ’ 

Label  PRT . 

Limit  check  and  print¬ 
out  routine  for  rec¬ 
tangular  and  elliptical 
targets 


Upper 

limit 

"L"  a 

1  phanumerics 

Lower 

limit 

=  WD 

Call 

Pgm.  9 

to  check 

11ml 

ts  and 

print  out  L 

Store 

L  in  R07 

"WD" 

al  phanumerics 

Call 

Pgm.  9 

to  check 

1  imi 

ts  and 

print  out 

WD 

Store 

WD  in 

R08 

Label  RST. 

Start  of 

rectangular 

targets 

average  Pd 

routine 

Call  SBR 

PRT  to  check 

limits 

6  P(x) 

see  eq. 

24 

i  =  4 

Store  i 

in  R06 

Label  RAD. 


Call  SBR  P/R  to  calcu 
late  Dj  and  P(0; ) 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 

COMMENTS 

STEP  CODE  KEY 

COMMENTS 

r?2  97  I'lSZ 

If  i  >  0  subtract  1 

240  37  PR 

See  Eq.  36 

1  9  iJ  6  0  6 

from  I,  store  1  in 

241  89  UP 

i  1  !  Jt'  H|  i  ; 

R06  and  qo  to  RAD 

242  30  3 

Subtract  1  from  i 

195  ^6  LBL 

Label  =. 

243  71  SBR 

Call  SBR  P/R  to  calcu- 

190  95  = 

244  37  R.  R 

late  D.  and  P(D. ) 

1  1 

197  7  1  s  B  P’ 

For  i  =  0 

245  05 

1 '?  y  o  hs  R  i 

244^  U  3  3 

4P(D^. )  for  1  equal  to 

1  r  r  Li  b 

Repartition  back  to 

247  95  = 

1 ,  3,  5  or  7 

201  1^  °17 

normal  partition 

•  >4  >4  44.  i  1 1"; 

Li  ii'  b  'r'  =L'  n 

Call  Pgm.  3  to  print 

4  -5  Li  9  F  U  'z=  4 

If  i  >0  subtract  1 

i.!  -2=  i_=  -2=  U  b 

out  P 

251  00  00 

from  i,  store  i  in  R06 

2'  Ti  cr  ■•;;!  ri 

: fl  h:  : 4  4 

253  02  2 

C  A  1“ 

•2.  •«'  *4  y  ■Z‘  c 

and  go  to  EXC 

207  01  G  T  u 

Go  to  Label  ADV 

255  04  4 

O’  Tf-JL’ 

Divide  R28  by  2.4 

210  52  EE 

Label  EE. 

257  49  F'  F:  D 

211  04  4 

Start  of  elliptical 

259  01  GTD 

Go  to  Label  = 

212  49  F’  R  D 

targets  average  Pd 
routine 

4P(x) 

2  0  0  9  5  = 

2T4  05  ^ 

201  7  F^  LBL 

202  12  B 

Label  B. 

215  71  SBP 

See  Eq.  36 

208  h3  8  I  U 

Store  SI  in  Rll 

210  9  9  F'  F:  T 

Call  SBR  PRT  to  check 

204  11  11 

■=  1  C-  cr  cr  _ 

1 imits 

205  01  GiU 

2 1’  9  L-  iij  Fi  i 

Go  to  Label  WRT 

219  4  2:  F’  C  L 

2  2  0  0  7  0  7 

207  70  L  B L 

2  0  8  1  3  C 

Label  C. 

221  95  = 

p 

wn 

Store  ^  in  R08 

209  42  STO 

Store  WR  in  R12 

444  H-b  c.LL 

271  01  GTD 

224  2'  2;  7  i 

See  eq.  33 

2  “^2  90  UR'^ 

Go  to  Label  WRT 

225  94  - 

220  95  + 

273  1^0  LBL 

|2.  :  *4  1  i,i 

Label  D  . 

I-.  4  r  4  -2'  r!  L-  L 

21^5  42  970 

Store  either  S2  or  L  in 

228  Cl  7  i  j  7 

2  7b  13  13 

2^^  bl  GTD 

R13 

230  95  = 

278  90  iJF'~ 

Go  to  Label  WRT 

2  2i  1  2i  4  f  1 ; 

279  70.  L  B  L 

Label  E  . 

222  42  9TD 

Store  in  707 

280  15  E 

Store  either  S3  or  WD 

4  3 .3  1  j  7  ij  7 

281  42  STD 

22'i  08  0 

See  Eq.  33 

2  c-  2  1  14 

in  R14 

235  42  S^n 

i  =  8 

2  8  3i  01  G  T  0 

4  -2'  b  fj  b  'J  L' 

Store  i  in  R06 

284  90'  !JR! T 

Go  to  Label  WRT 

237  70  LBL 

Label  EXC. 

285  70  LBL 

Label  A'. 

238  48  e:;l 

Cal  1  SBR .P/R  to  calc. 

288  l8  H' 

239  71  SBP 

and  P(Di) 

287  42  STO 

» 


236 


PROGRAM  MEMORY  (LIST) 


STEP  CODE  KEY 


^  6  W  R ' 


COMMENTS 


STEP  CODE  KEY 


COMMENTS 


Store 

CEP  in  R15 

Go  to 

Label 

WRT 

Label 

B'. 

Store 

TR  in 

R16 

Go  to 

Label 

WRT 

Label 

D'. 

Store 

s  i  gma 

in  R18 

Go  to 

Label 

WRT 

Label 

C  . 

Store 

X  in 

R17 

o  U 

0  03 


O  U  ij  U  U 

4  7?  GE 

5  9  1  R  •  ■  'E; 

6  43  RCL 

:6  71  GBR 

i  2  63^  6  3^ 

i 3  i't  L H L 

■  *4  R 

;5  22  IHV 


Label  ADV. 
Reset  Flag  2 


Label  RTN 
Store  P  in  R19 
Program  stops  here 


Recall  3.n 


Label  E'  . 

Start  of  calculation 
Store  3.n  in  ROO 

Reset  Flag  7 

Set  degrees  angular 
mode 

Remove  pending  opera 
s 


PROGRAM  MEMORY  (LIST) 


PROGRAM  MEMORY  (LIST) 


DISTRIBUTION  LIST 


Un'ARTMENT  U(  UEfENSE 

Assistant  Secretary  of  Defense 
Program  Analysis  &  Evaluation 

ATTN:  Strat  Prog,  Jack 

Command  &  Control  Technical  Center 
Department  of  Defense 

ATTN:  C-650,  W.  Heidig 
AiTN:  C-312,  F.  Fredrickson 

Comtnander- in- Chief 
U.S.  European  Command 

ATTN:  ECJ2-T,  D.  A1 len 

Defense  Intelligence  Agency 
2  cy  ATTN:  DB-4C 

Defense  Nuclear  Agency 


ATTN 

NASD,  H.  Gladwin 

ATTN 

RAEV,  B.  Mohr 

ATTN 

STRA,  R.  Lewis 

ATTN 

RAEV,  G.  Baker 

ATTN 

NATO,  D.  Williamson 

ATTN 

NATA,  D.  Auton 

ATTN 

STSP 

ATTN 

SPSS,  M.  Moore 

ATTN 

SPAS,  A.  Hopkins 

4  cy  ATTN 

TITL 

Deputy  Director 
DOD  SALT  Task  Force 

ATTN:  L.  Minichiello 


Field  Command 
Defense  Nuclear  Agency 

ATTN:  FCP,  R.  Bestgen 
ATTN:  FCP,  Stephens 
ATTN:  FCTMD,  F.  Jaeger 

Field  Command 
Defense  Nuclear  Agency 
Livermore  Branch 

ATTN:  FCPRL,  N.  Ruotanen 

Joint  Chiefs  of  Staff 

ATTN:  SAGA,  C.  Swain 

Joint  Strat  Tgt  Planning  Staff 
ATTN:  .IPPF,  Saunders 

NATO  School  (SHAPE) 

2  cy  ATTN:  U.S.  Documents  Officer 

U.S.  National  Military  Representative 
2  cy  ATTN:  U.S.  Doc  Off  for  Opns 

Undersecretary  of  Def  for  Rsch  &  Engrg 
ATTN:  M.  Atkins 

AITN:  Strategic  &  Space  Sys  (OS) 
ATTN:  R.  Ruffine 

Defense  Technical  Information  Center 
12  cy  ATTN:  DO 

DEPARTMENT  OF  THE  ARMY 

U.S.  Army  Armament  Rsch  Dev  A  Cmd 

ATTN:  DRDAR-l  CN-l ,  F.  Schuhmann 


DEPARJMiNJ.  OF  JHE  iCont  1  nued ) 

BHD  Advanced  Technology  Center 
Department  of  the  Aniiy 

ATTN:  ATC-T,  M.  Capps 

Harry  Diamond  Laboratories 
Department  of  the  Army 
ATTN:  DELHD- i-RBA 
ATTN:  R.  Polmide 

U.S.  Army  Concepts  Analysis  Agency 
ATTN:  War  Gaming  Group 
ATTN:  CSCA-WGO,  ting 

U.S.  Army  Engr  Waterways  Exper  Station 
ATTN:  WESS,  E.  Walker 

Coimiander-  in-Chief 
U.S.  Anny  Europe  and  Seventh  Artny 
ATTN:  E.  Caruso 

U.S.  Army  Nuclear  8,  Chemical  Agency 
2  cy  ATTN:  MONA-WE,  A.  Lowery 

DEPARJ.MEjlT  0F_  THE  NAVY 

Fleet  Intelligence  Center  Pacific 
Department  of  the  Navy 

ATTN:  FICPAC  Code  21 

Marine  Corps  Dev  &  Education  Command 
Department  of  the  Navy 

ATTN:  R.  Patenaude 

Naval  Postgraduate  School 
ATTN:  R.  Forrest 

Naval  Surface  Weapons  Center 
ATTN:  Code  K 

ATTN:  Code  F31 

ATTN:  Code  FJl,  D.  Levine 

ATTN:  Code  K31,  R.  Mullikin 

Nava!  War  Col  lege 

ATTN:  Code  E-11],  J.  Corsey 

Naval  Weapons  Center 

ATTN:  Code  31807,  Griegerich 

Office  of  the  Chief  of  Naval  Operations 
ATTN:  OP  6bAE6,  A.  Brandt 

Strategic  Systems  Project  Office 
Department  of  the  Navy 

ATTN:  SP  114,  J.  Stevens 

Conmander- in-Ch ief 
U.S.  Naval  lorces,  lurope 

ATTN:  N326,  R.  Thomas 

DtPARIMEMI  OF  THE  AIR  FORCE 

Air  forte  Institute  of  Technology 
AITN:  INP,  J.  Bridgeman 
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bmsckdxjno  ew*  b,amk-*iot  riii® 


i'Lr'ARTMf.Ni  Inl.  AIR  f  uRll  i^Cont  i nueO / 


DLPAIUr*U.N'  'A  ULH’.'t  i^T RAL :*.(« 


Ait  i  uti,e  S  Lviiludticin  Center 

A!  IN;  AIT[C-OA,  G.  lynih 

Ail'  i  ori.e  Wea[)C)fis  Idboratory 
Aii-  fof\e  ‘■jy.teiMs  Cunii:MrnJ 
A1:N:  a.  A'olf 
.y  AT  IN:  NX 

J  Ki  AF’IJ:  NNj>  B.  i'eters 


Assistant.  Cniof  of  Staff 
studies  s  Analyses 


Ot  the  Air 

f  orce 

a;"n 

Al 

NASI , 

Adams 

AT  IN 

AT 

NAur , 

F-t. 

Wa 1  ton 

a:  'N 

A( 

NASC, 

G. 

/ank 

ATTN 

AT 

■bASl , 

J. 

Stewart 

AITN 

Af 

TAbM, 

W. 

Adams 

2  cy  ATTN 

AT 

SAGR, 

M. 

Kdtz/CI ine 

•■trattHjic  Am'  ..omiiiand 
Departiiient  of  the  Air  force 
ATTN:  J,  McKinney 

Deputy  Chier  of  Staff 
Operations  Plans  and  Readiness 
Department  of  the  Air  force 
ATTN;  XOXrU  Wilkins 

Headquarters  SfMce  Division 
Air  forxe  Systems  Command 
ATTiV;  Johnsor} 

Commander- in-Chiof 


Pa(.  if  ic  Air  forces 

AIIN:  DOIT 

ct»  a  teg i c  Ai v  Command 

Dcpiii'tnieiU 

of  the  Air  Force 

ATTN 

XPI'N, 

R.  Rapids 

ATTN 

NR,  A 

McAl is  ter 

ATTN 

Xf’NM, 

G.  Van  Keuren 

ATTN 

Xf’l 

B.  Qanno 

ATTN 

■N’TM, 

M.  Guarrino 

ATTN 

Nl  IN, 

J.  Walker 

A  T  T  N 

XI’O, 

G  Neely 

Lommarider-  ifi-Lhiet 
'I.C.  Air  fori.i'S  in 

Lu  rop(’ 

3  >,y  ATTN 

UnAI  F 

LT 

oFf^LR  (il)Vi  RNMt‘11  AGLNCIt:. 

Centra  1  I nt f  1  I  i (jonee  A<)eni.y 
AKN:  ()‘,WR/Nl(l 


BDM  Corp 

ATTM:  J.  brdddoi.k 

Booing  Co 

>JTN;  H.  Lin 

6bth  MI  Group 

ATTN:  J.  nurloy 


General  Research  Corp 


ATTN 

R.  Crawford 

ATTN 

I.  Stathaco[>oulos 

Harold  Rosenbaum  Associates.  Inc 

ATTN 

H.  Rosenbaum 

JAVCOR 

ATTN 

W.  Radasky 

JAVCOR 

ATTN 

J.  Young 

JAVCOR 

ATTN 

R.  Sul  1 i van 

McDonnell  Douglas  Corp 

ATTN 

A.  lykholt 

Pdciflc-Gieira  Rosodreh  Corp 

ATTN 

tl.  Hrode 

R  &  D  Associdtos 

ATTN 

P.  tlaas 

ATTN 

0.  McGarvey 

S  cy  ATTN 

R.  Port 

R  S  D  Assotidles 

ATTN 

L.  Delaney 

Rdnd  Corp 

ATTN 

-I.  Digby 

Santa  Fe  Coip 

ATTN 

D.  Pdolucci 

SRI  International 

2  cy  ATTN 

P,  Uolan/B.  (idston 

Systems,  Seience  X  Software,  ln( 

AT  IN 

V.  Blarkman 

'.y, terns,  *>(  ienro  X,  Sottware,  I  ru 
Washington  Resoar(,h  Center 
AITN:  A.  Northro[' 


leilersjl  [n;«’rqen-,/  ManaqeiiiMnt  Ageriiy 

A :  !  N  :  1  d  I  va  I  X  Vii  1  Red  Gi  v 


TRW  Def'Mise  X  ''pace  '.ys  iooup 
AlIN:  li.  Llemeni 


ill  RAi-'IMi  N'  :i|  I  N[  k:.r'  >  .NIRAi  ‘I'R'- 

1  ,iw  ri'ni  f'  1  i  T'liii  ea-  N.i  *  i  on.t  1  I  at - 

AF  FN  ;  ;  -  5 1  ,  ■«.  R*- 1  nha*  fit 

A  !  F  N  :  i-'.  i;af  f 

C,i>-  1 !  a  Na  f  1  nf.a  1  ;  aP 

A  F  F  N  ;  Sfiti 

A  F  '  N  :  I  ;i,,,  ,  [  .  --.I'm  :,,fi 


General  1  lei  frit  Lompa  IFMPn 
ATTN:  DAMAi 

lORLir.N  GOVLi-.NMiNF 

r.ritish  Detense  Matf 
r.r  itish  Imbassy 
J'.  (,y  Ai  FN  :  M.  f\nu\  t  i  enq 
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